
平松達雄•八木良 一 共著システムソフト監修 






















はじめに 


パソコン も社会に定着し、 ワープロ とともに身近な 〇 A として利用されています。 ビジ ネ 
スユースでは 16 ビットマシンが 主流になりました が、 汜に パーソナルなパソコン としては 
8 ビットマシンが 大部分です。 

PC-8801mkII は、8ビットのスタンダードともいえる PC-8801 の後継機種として発売され 
ましたが、その最大の特徴はディスクドライブが内蔵されたことでしょう。これにより力 
セットでは味わえない、数々の長所をもったディスクベースのソフトウヱアがますます利 
用されるようになり、いまや、 PC- 8801 mkll 用に発売されるソフトウヱアの多くがディス 
クベースになりました。8ビットマシンのディスク時代の幕を開けたといっても過言では 
ありません。 

本書は、この PC-8801mkII をより高度に活用するために、本体だけでなく、周辺機器も 
含めた システムの 機能を徹底解剖し、内部構造や有用なテクニック、周辺機器の制御方法 
などの情報をまとめたものです。また、すぐに使えるプログラムも豊富に紹介しています。 
座右の書として御活用いただき、読者の方々の利用技術向上の一助となれば幸いです。 

パソコンが ポピュラーになるにつれて、その使われ方も変化し、使いやすく分かりやす 
いソフトウヱアが求められるようになりました。その結果、ソフトウヱアはますます高度 
化 • 複雑化し、機械語を使用せずに求められる機能を実現させるのはほとんど不可能にな 
ってきました。そこで、本文中での機械語の使用はなるべく避ける、という Techknow シリ 
ーズの編集方針も変更を余儀なくされ、今回はかなり積極的に機械語を使用しています。 
このため、内容に難解な部分があると同時に、項目によってレベルにギャップが生じてし 
まいましたことを御容赦下さい。 

なお、本書の執筆は主に平松が行ない、サブシステム部分を八木が扭当いたしました。 
本書の内容は筆者らが独自に調査•解析したものであり、文責は筆者らにあります。また、 
運用上の影響については責任を負いかねますので御了承下さい。 

最後になりましたが、本書を出版するにあたって、日本電気株式会社の関係者の方々、株 
式会社 システムソフトの 樺島社長や小金丸技術部長を始めとする編集 スタッフの 方々には 
大変お世話になりました。また、栗山浩一•松尾篤也両氏には著書からの大規模な引用を 

•く 了承していただきました。この場を借りて心より御礼申し上げます。 


昭和60年4月 
平松達雄記 



編集部より 

〇本書の内容に関する御質問に ついて 

本書は著者の独自の調査•解析に基づくものですので、内容についての電話質問に、編 
集部または弊社ユーザーサポート部ではお答えしかねる場合がございます。 

内容に関するご質問は、正確を期するためにも、書面にてお寄せください。 

〇アンケート葉書について 

システムソフ トでは発刊後に発見された誤り等について、 バグ 情報をお送りしています。 
本書に添付されているアンケート葉書を御返送いただいた方には、自動的に バグ 情報をお 
送りいたしますので、アンケート葉書は必要事項をご記入の上、送り返してください。 

〇本書の運用上の影響について、株式会社システムソフトでは責任を負いかねますので、 
御了承ください。 
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第 1 章システム概説 


1-1 ソフトウェア 

PC -8801 mk II には N 88 - BASIC と N - BASIC という2種類の BASIC が搭載されています。 
また model 20,30ではディスクドライブがあるために、他の汎用 OS を動かすことができ、 
その上で各種の高級言語やアプリケーションを動かすことができます。 

1 ) N88- BASIC 

PC -8801 mkII の中心となる言語で、ユーザの多くがこの言語を使われることと思います。 
本書でもこの言語を念頭において話をすすめていきます。 

2) 漢字 BASIC 

PC -8801 mk II には漢字 ROM が標準装備されていますから、これを用いた漢字 BASIC が 
用意されています。漢字 BASIC については第8章をご覧下さい。 

3 ) N-BASIC 

PC - 8001で採用されていた BASIC で、 PC - 8801 (mkll )， PC _ 8001 ( mkll ) に共通に使えま 
す。機械語およびメモリ配置を 考慮、 しなければ PC -9801( E / F ) でもオプションで使用でき 

ます。 

4 ) CP/M 

80系の8ビットマシンでは最もポピュラーな汎用 OS (基本ソフト）です。生い立ちが古い 
ために少し使いづらい所もありますが、その上で走るソフトウェアの数は絶大です。 CP / 
M にはいくつかのバージョンがあり、現在最も普及しているのは Ver 2. 2です。 PC _8801 mk 
II 用としては、 NEC から PS 88-104- 2 W が発売されています。これは、ハードディスクや 
RAM ディスクもサボートしていて、豊富なユーティリティーが付属しています。また、 
CP / M は MSA ((株)マイクロソフトウェアアソシェイツ）などのソフトハウスからも発売され 
ています 。 Ver 2. 2以外のバージョンとしては、 MSA などから CP/M Plus ( CP/M Ver 
3. 0) という上位バージョンが発売されています。 

また PCP / M という 、 Ver 2. 2と Ver 3.0 との中間的機能を持ち 、 Ver 2. 2の欠点を解決し 
たコン シュー マ 向けのバージョ ン もあります0 
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1-2 ハードウェア 

PC -8801 mk II は、バソコン本体ともいうべきメインシステム部分と、ミニディスクドラ 
イブを制御するサブシステム部分とで構成されています。全体のブロック図の概略は次のよ 
うになっています。 


厂. 


1 


メイン 


システム 



キ—ホ — r 




-力- 




7 T — デイオカセット 

プリンタ 

RS -232 C 

白黒 CRT デイスプレイ 
カラー CRT デイスプレイ 


拡張用 スロッ 


令一拡張用 ミ ニ ディスク 


図1 - 2- A 全体のブロック図 
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1-3 メインシステムとサブシステム 


前節で述べたように、 PC -8801 mkII には2つの CPU (どちらも Z -80) があり、それぞれメ 
インシステム、サブシステムを形成しています。メインシステムは旧 PC - 8801本体に相当 
するもので、パソコンとしての働きはほとんどこのメインシステムで行なっています。これ 
に対して、サブシステムは PC -80 S 31 に相当するもので、フロッピィディスクの制御だけを 
なっています。 

とは言っても、サブシステムも 16 K バイトの RAM (うちフリーエリア 7 K バイト強）を持っ 
ていますから、うまく使えばかなりのことができます c 

メインシステムとサブシステムのインタフェースには、 " PD 8255 が使われています。 



図1 - 3 -A メインシステムとサブシステム 

インタフヱースの方法などについては第10章サブシステムを見て下さい。 
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第 2 章 


メモリ モー ド 


メインシステムには標準で 112 K バイトの RAM と 72 K バイトの ROM が搭載されています 
が、これらはいくつかのバンクに分けられ、それぞれの役割が決まっています。この章では 
主にこれらのバンクの使用方法 について 述べますが、バンク切換えは BASIC を用いて行な 
うことができませんので、ほとんど機械語を用いた説明になります。 

2-1 メモリマップ 


メインシステムのメモリは次のような構成になっています。 



GVRAM 0 



ROM 1 


GVRAM 2 


FFFF 


C000 


N-BASIC ROM 




オフシヨ 

ROM 
一 … 


7 バンクまで可能 


くンク切換 




7FFF 


6000 


0000 


図 2 - 1 - A メインシステムのメモリマップ 

1 ) メイン RAM 

BASIC のワークエリアや変数エリアとして使われます。 N - BASIC では BASIC プログラ 
ムも ここに 置かれます。 

2 ) テキスト RAM 

N - BASIC のプログラムがここに置かれます。 N - BASIC モードでは使用されていません。 

3 ) グラフィック RAM 

N 『 BASIC のグラフィック表示用 RAM です。光の三原色に対応して3つのバンクがあり 
ます。 
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4 )拡弓長 ROM 

モード1(後述）のとき、拡張 ROM エリアとして600 0 H 〜7 FFFH までの8 K バイトを7 
バンク分使用することができます。 

5 ) 拡張 RAM 

拡張 RAM は⑻⑻ H 〜7 FFFH までの 32 K バイト使用することができます。 

2-2 メモリモード 


メインシステムのメモリモードとして次の3つのモードがあります。 

N - BASIC モード（モード0 ) 

N ««- BASIC モード(モード1 ) 


64 K RAM モード（モード2 ) 

以上3つのモードはプログラムによって切換えることができます。 


( 1) モ—ド〇 

このモードでは PC -8 ⑻1と同じ働きをします。 

図2 - 1 - A における ROM 1が選択され、メモリマ 

ップは図2 - 2 - A のようになります。メモリアドレ 

ス⑻ 00 H 〜7 FFFH の RAM は使用できませんが、 

書き込みだけは常に可能です。このエリアの RAM 

からデータを読み込んでくるためにはモード2にす 

る必要があります。 

また、 PC - 8001の N - BASIC を使用しているプロ 
グラムは、このモードで実行できますが、 
PC - 8001の拡張 ROM (6000 H - 7 FFFH ) をアクセ 
スするようなプログラムは実行できません。 

(2) モード1 

このモードでは図2 - 1 - A における ROM 2， 
ROM 3, が選択されます。 NwBASIC はこの 
モードで動きます。この埸合のメモリマッブ 
は図 2-2- B となります。 BASIC のテキス 
I 、エリア0000 H 〜 7 FFFH は CPU のメモリマッ 
プト-にはありません。メイン RAM のうち、8400 


FFFF 

EA 00 

E 9 FF 


8000 

7 FFF 


0000 


ワークエリア 


スタック 

ストリング用スタック 


プログラム 

* エリア 

変数] 


ROM 1 

/ N-BASIC \ 
I インタプリタノ 


H 〜 FFFFH は CPU のメモリマップ I ••にありま 図2 - 2 - A モード0 メモリマップ 


す。80⑻ H 〜 83 FFH はテキスト RAM を読み書きするための「ウィンドウ」となります。これ 
については後述します。 
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図 2-2- B モード1メモリマップ 


(3 ) モード2 

このモードは ROM 1〜3をマスクし、 CPU のメ 
モリマップ （64 K バイト）はすべて RAM で構成され 
ます。図2 - 2 - C にメモリマップを示します。この 
モードでは BASIC は動きません。 CP / M その他ほ 
とんどの汎用 OS はこのモードで動きます。 


FFFF 


8000 


0000 



図2 - 2 - C モード2 メモリマップ 
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2-3 メモリモードの切換え 

モード切換えは次のような時に使われます。 

( 1 ) ディップスイッチが N - BASIC モードになっている時 

PC -8801 mkll は、リセット時には必ずモード1 ( N 『 BASIC モード）となっています。そ 
して!' U - BASIC インタプリタが起動されるのですが、ここで N ^ BASIC インタプリタは 

ディップスイッチの状態をセンスし、 N - BASIC モードに設定されていたらモード0に切換 
えて、 N - BASIC インタプリタに制御を渡します。 

( 2 )64 K RAM モードで動くプログラムを走らせる時 
64 K RAM モードで動くプログラムは、たいていその最初でモードを2に切換えます。特 
に IPL 中で 64 K RAM モードにするものが多いようです。 

(3 ) N 『 BASIC モードで動くプログラムでテキスト RAM をウィンドウを通さずにアクセス 
したい時 

1 K バイト（ウィンドウの大きさ）以上のテキスト RAM のエリアを一度にリードしたし M 時 
には、このような方法をとります。 

(4 )64 K RAM モードで動いているプログラムから、 NrBASIC または N - BASIC の ROM 
ルーチンを呼び出したい時。 

たとえば 、 BASIC ROM の中のキー入カルーチンや1文字出カルーチンを利用したい時 
に、一時的にモードを切換えて ROM ルーチンを呼び出し、もどってきた所でまた 64 K 
RAM モードにもどします。この時、呼び出す ROM ルーチンが使うワークエリアは、あら 
かじめセットしていなければなりません。実際には BASIC のワークエリア （ N « 8 - BASIC のと 
き E 600 H 〜 FFFFH ， N - BASIC のとき EA 00 H 〜 FFFFH ) をそのまま持っておくという方 
法がとられます。 

3つのメモリモードの切換えは、 I / O ポート 31 H のビット1とビット2で行ないます。 

ポート 31 H (〇 UT のみ， N « 8 - BASIC のワークエリア： E 6 C 2 H ) 


7 6 5 4 3 2 10 


77 




r ， 

L 


メモリモード 

ROM モード 


モ 

ー ド 

ROM モード 

メモリモード 

モード0 

( N - BASIC ) 

1 


モード1 

( N 88- BASIC ) 

〇 


モード2 

(64 K RAM ) 

— 



図 2-3- A ポート31 H モード切換え 
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モードを変更するためには R MODE と M MODE を前の表のようにセットしたデータを 
OUT してやればよいのですが、このとき他のビット（ビット〇、ビット3〜 5) も同時に変 
更することになります。しかし、他のビットの値を勝手に変えるわけにはいきません。これ 
を避けるためには、現在ポート 31 H に出力されているデータを知って、ビット0、ビット3 
〜5はこのデータと同じにして OUT すればよいわけです。 N ««- BASIC では、ポート 31 H に 
出力したデータをワークエリアの E 6 C 2 H 番地に持っています。したがって、 N ^ BASIC の 
ときは次のようにします。 

① E 6 C 2 H 番地の値を読む。 

② その値のビット1，2を変更する。 

③ 変更した値をポー ト 31 H に OUT する。 

④ 変更した値を E 6 C 2 H 番地にしまう。 

ところで、これを BASIC で行なうわけにはいきません。なぜなら、③でモードを切換え 
ると、 N ««- BASIC インタプリタの ROM が切換わって、 N - BASIC の ROM (モード 0) か 
RAM (モード1 ) になってしまうからです。切換わったとたんに暴走してしまいます。（そ 
してたいていの場合はリセットがかかります。） 

そこで、これをアセンブリ言語で書くとこうなります。 

モー ド 1— モード 2 ( N 88- BASIC -64 K RAM ) 

1)1 

LD A , (0 E 6 C 2 H ) 

OR 6 
OUT (3111 )， A 
LD (0 E 6 C 2 H ), A 
El 

モ ー ド 2 —♦■モ ー ド1164 K RAM - ^ Nws-BASIC ) 

DI 

LD A , (0 E 6 C 2 H ) 

AND 0 F 9 H 
OUT (31 H)，A 
LD (0 E 6 C 2 H ), A 
El 

この プログラムは、 最初に DI 、 最後に El が 人っています。 

つまり、これを実行している間は割り込み （ NMI を除く）がかからないようにしているわ 
けです。もし、 E 6 C 2 H 番地の値を読んだ後で割り込みがかかり、その割り込みルーチンで 
E 6 C 2 H 番地の値を変更したとしますと、割り込みからもどってきた時、アキュムレータに 
入っている値は古いものとなってしまいます。その値を使ってポート 31 H に〇 UT すると、 
おかしなことになります。そこで、割り込みがかからないように DI を実行しているのです。 

DI では NMI を止めることはできませんが、 PC - 8801 mk 11では拡張ボードで使用しないか 
ぎり NMI はかかりません。また、 N ««- BASIC から 64 K RAM モードにするときは、 N « 8 - BA - 
SIC のインタラプトルーチンが N« 8 -BASIC ROM を使うので、 64 K RAM モードの間ずつ 
と DI をかけたままの状態にしておかないと暴定してしまいます。 
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2-4 ウィンドウ機能 


N ^ BASIC モードの場合、ウィンドウ機能と呼ばれる機能があります。このウィンドウ 
機能とは、 WINDOW 文や CONSOLE 文のウィンドウとはまったく別のもので、 Nss - BA - 
SIC インタプリタの裏側にあるテキスト RAM の内容を見る場合に使用されるものです。 

N 『 BASIC モードでは、 CPU は000 0 H 〜 7 FFFH のアドレスのメモリを、読み出す場合 
は ROM に、書き込む場合は RAM にアクセスしますので、その範囲にあるテキスト RAM の 
内容を読み出すことができません。これを見るためには、テキスト RAM の内容をいったん 
8( X )0 H 〜 83 FFH のアドレスに移してから見ます。 

これは、テキスト RAM の内容をアドレス800 0 H 〜 83 FFH の RAM に書き込んでそれを見 

ているのではなく、テキスト RAM のアドレスをハードウエアで8000 H 〜 83 FFH に変えて、 

それを読んでいるのです。また、アドレス84⑻ H 〜 FFFFH までの 31 K バイトの RAM は、 

CPU のメモリ空間上にあり、直接リード/ライトができますので、ウィンドウを用いる必 

要はありません。つまり、ウィンドウ機能とは、000 0 H 〜 83 FFTI までのアドレスにある 
RAM の内容を読む時に使用するものです。 

読みたいアドレスを指定する時に使用するものとして、8ビットのオフセットアドレスレ 
ジスタ （ OAR ) というものがあります。 OAR はプログラムにより設定できます。まず 、 OAR 
に8ビットのデータを入れると、そのデータを上位バイト、⑻を下位バイトとしたアドレス 
から 1 K バイトがウィンドウに映ります。例えば、 OAR に 37 H を入れると、テキスト RAM 
のアドレス37⑻ H 〜3 AFFH までが映るわけです。 3 B ⑻ H 以後を見たいときには、 OAR を 
インクリメントして、 OAR を 38 H とし、380 0 H 〜 3 BFFH を映します。 


FFFF 


8400 

8000 


0000 


メイン RAM 


テキスト•ウインドウ 


N88-BASIC 

ROM 



オフセツトアドレスレジスタ（〇 AR ) 


<— XX 


コントロ ールポート 

70 H OAR <~> データ 
78 H OAR インクリメン 


図2 - 4 -A ウィンドウのメモリマップ 

OAR に関する命令には次の3つがあります。 

① 〇 AR にオフセットアドレスを設定する OUT 70 H 

② OAR からオフセットアドレスを読み出す IN 70 H 

③ OAR を+1する（出カデータは意味をもちません） OUT 78 H 

それでは実際にやってみましよう。まず次のプログラムを実行して下さい。 
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リスト 2-1 

10 FOR AD =& H 3000 TO & H 30 FF 
20 POKE AD,AD MOD 256 
30 NEXT 

さきほど述べたように、書き込みのときはテキスト RAM に書き込まれますから、これで 

テキスト RAM のアドレス300 0 H 〜 30 FFH にデータが書き込まれました。本当に書き込まれ 

たかどうか見てみましょう。モニタに入り、 OAR を 30 H に設定します。 （ BASIC で設定する 

と、コマンド待ちのルーチンで再び OAR を書き換えてしまいます。） 

リスト2 - 2 
mon 

h 〕 〇70,30 
h 〕 

それでは、ウインドウを通してのぞいてみましょう。 

リスト2 - 3 

h 〕 d8000 f 80ff 

8000 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 
8010 10 1112131415161718191A IB 1C ID IE IF 
8020 20 2122 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F 

8030 30 3132 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 

8040 40 4142 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 

8050 50 5152 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F 

8060 B0 6162 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 

8070 70 7172 73 74 75 76 77 78 79 7A 7B 7C 7D 7E 7F 

8080 80 8182 83 84 85 86 87 88 89 8A 8B 8C 8D 8E 8F 

8090 90 9192 93 94 95 96 97 98 99 9A 9B 9C 9D 9E 9F 

80A0 A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 AA AB AC AD AE AF 

80B0 B0 B1 B2 B3 B4 B5 B6 B7 B8 B9 BA BB BC BD BE BF 

80C0 C0 Cl C2 C3 C4 C5 C6 C7 C8 C9 CA CB CC CD CE CF 

80D0 D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 DA DB DC DD DE DF 

80E0 F0 El E2 E3 E4 E5 E6 E7 E8 E9 EA EB EC ED EE EF 

80F0 F0 FI F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF 

h 〕 

いままで述べてきたように、 8( X )0 H 〜 80 FFH までのアドレスに 3( X )0 H 〜 30 FFH までの 
RAM の内容が表示されています。 

このウインドウ機能は書き込みのときにも働きますから、モニタの状態のまま、 S ， E ， 

F コマン ド等で800 0 H 〜 83 FFH までのデータを書き換えると、テキスト RAM のアドレス 
3( X )0 H 〜 33 FTH に書き込まれることになります。800 0 H 〜 83 FFH の RAM に書き込まれるの 
ではありません。 

80⑻ H 〜83 FFH の RAM を表示/変更するときには、 OAR に 80 H を入れ、ウインドウに映 
してから行ないます。 

ハードウェア的には、 CPU が 8( X )0 H 〜 83 FFH までの1 K バイトの間のアドレスをリード 
/ライトすると、 

① アドレスの MSB をマスクする。 

② マスクされたアドレスと OAR の内容を加える。 

という動作を行ない、得られたアドレスに対して CPU はアクセスします。 


〇氺 

0123456789:;<=>? 
©ABCDEFGHIJK し MNO 



'ab c de f ghlj k1mno 
p q rstuvwxyz { !} 〜 

― I 



• 「」、•ヲ アィゥュォヤュョッ 
ー アイウエオカキクケコサシスセソ 
タチツテトナニヌネノハヒフへホマ 
ミムメモヤユ 3 ラリルレロワン ” • 

X 円年月日時分秒 
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10 0 0 

0 0 X X 

X X X X 

X X X X 


8000 H 〜 83 FFH 

までのアドレス 


M SB M ASK 


① 



0 0 0 0 

0 0 X X 

X X X X 

X X X X 


マスクされたアドレス 
は〇〜 3FFH となる 


+ ® 加ぇる 

〇 A R 


TEXT RAM アドレス 


図 2-4 -B ウインドウ機能の動作 


2-5 拡張 ROM (4 th ROM) 

「2-1メモリマップ」でも述べたように PC -8801 mkLl は拡張 ROM として600 0 H 〜7 
FFFH までの8 K バイト X 7バンクを使用することができます。 0( K )0 H 〜7 FFFH までの 
ROM エリア 32 K バイトは、バススロットの ROMKILL 信号をアクティブにすることによっ 
てマスクされ、バススロット上の拡張 ROM がアクセス mJ * 能になります。したがって、拡張 

ROM ボードを作製する時 、 OUT 71 H で拡張 ROM 2〜拡張 ROM 8を選択するような場合、 
ROMKIL し信号がアクティブになるように設計する必要があります。 

拡張 ROM を選択するための I / O ポートアドレスは次のようになっています。 


ポート 71H (IN,OUT) 


7 

6 

5 

4 

3 

2 

1 

〇 

4t[ 

ROM 

4tTT 

ROM 

4th 

ROM 

4th 

ROM 

4th 

ROM 

4th 

ROM 

4th 

ROM 

4tfT 

ROM 

8 

7 

6 

5 

4 

3 

2 

1 


〇 ： Enable f セレクトしたい ROM のビットだけを〇 
1: Disable I にし，残りを全て 1 にする。 

図2 - 5 -A 拡張 ROM I/O ポート 
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たとえば、 R 0 M 2 を選択するためには、次のようにします。 

LD A , OFDH 
OUT (71 H ), A 

このときのメモリ マツ プは図2 _ 5 - B のようになります。 


4 th ROM 1 


4 th ROM 2 〜 8 


7 FFF r 


6000 


〇〇〇〇 




7FFF -- 

—1 

垂 


4th ROM 

1 

1 

1 

1 

I 

1 

4th ROM 


馨 

只 u - — - 

1 

. _ . _j 



DUUU 卜 

1 

n 

a 



:はアクさスできない 
ことを示す。 


〇〇〇〇 


図2 - 5 - B 拡張 ROM 使用時のメモリマップ 

<注意> 

① 4thROM 1 というのは Nf BASIC インタプリタの一部として内部に実装されています 
この ROM を選択した場合には内部的に R0MKILL 信号を用いずに処理されるため、 000 0H 
- 5 FFFH の ROM は禁止されません。 

② 4 thROM の選択をやめるときには、 71H に FFH を OUT します。 


また、リセット時には 、 OUT 71 H を行なわずに拡張 ROM に制御を移すこともできます。 
拡張 ROM の先頭、つまり600 0 H 番地に 52 H (“ R ”）， 600 1 H 番地に 34 H (“ 4 ”） を書くというの 

がそれです。 N «8- BASIC はリセット後のイニシャライズ時に 、 ROM 2から ROM 8まで順 

に拡張 ROM の6000 H ， 600 1 H をチェックし、 52 H ，34 H が書かれていると、その ROM の 

6002 H にジヤンプします。 


拡張 RQM ( 益 “I 益 


6〇〇〇 
6001 


6002 


52 H 


34 H 


処理ルーチン 


C 3 H 


54 H 


01 H 


，R 


ここへ制御が移る 


JP154H としておくと 

もとのチエックルーチンへ戻り 
次のオフシヨン ROM をチェックする。 


図 2-5- C 拡張 ROM のイニシャライズ 

0 2-5 - D に拡張 ROM ボードの回路例を上げておきます。 
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-D 拡張 ROM ボードの回路例 
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2-6 拡張 RAM 


図 2-6 -B PC -8012-02 のバンク制御ホート 

<注意>1度に2つ以上のバンクを読み出し許可にすることはできません。 

たとえばバンク0をリード/ライト許可するときには、 

LD A , 11 H 
OUT ( 0 E 2 H ), A 

とします。こうするとバンク1に設定されている PC -8012-02 のリード/ライトが許可され、 

同時に PC -8801 mkfl の000 0 H 〜7 FFFH 0 ROM , RAM はアクセスできなくなります。また、 
PC - 8012 -02 はリードとライトを別々に制御できるようになっていますが、 PC -8801 mkll で 


拡張 RAM は 000 0 H 〜 7 FFFH の 32 K バイトに割り当てら ffff 

れます。このときのメモリマップは右のようになります。 

つまり 64 K バイト ALL RAM になるわけで、モード 2 と同 
じようなものです。当然拡張 RAM を使用するプログラムに 
も、モード2のときと同じ注意が必要です。市販されている拡 8000 

張 RAM 用ボードとしては、 PC - 8012 -02 と PC -8801-02 N があ 
ります。 PC - 8801-02 N は、 NEC 製 CJP/M を使用した時には 
RAM ディスクとして使えますので、 PC -8801 mk II にはこの 
方がよいでしょう。 〇〇⑻ 

図2 - 6 -A 拡張 RAM 使用時のメモリマップ 

( 1 ) PC -8012-02 

PC -8012-02 は 32 K バイトの RAM ボードです。拡張 RAM のエリアは000 0 H 〜7 FFFH の 
32 K バイトですから、ちょうどの大きさです。 PC - 8012 -02 はバンクナンバー設定のための 
ジャンパがついていて、4つのバンクに設定できるので、最大4枚までを使用できるのです 
が、 PC -8801 mkll はスロットが3つしかありませんので、3枚までしか使えません。 

PC - 8012 -02 のバンク制御はポート E 2 H を用います。 

ポート E 2 H ( OUT ) 

書き込み制御 読み出し制御 

7 6 5 4 3 2 1 0 


メイン RAM 


拡張 RAM 


バンク〇 
バンク1 
バンク2 
バンク3 


バンク〇 
バンク1 
バンク2 
バンク3 
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は、テキスト RAM があるために、書き込みだけを許可することはできません。 PC -8 ⑻ l(mk 
U ) に使用した場合には書き込みだけを許〖げすることができるため、 BASIC の POKE 文で拡 
張 RAM にデータを書き込むことができましたが、 PC -8801 mk |]ではこういうことはできま 
せん。 

また、現在どのバンクの読み出しが許可されているかを知ることもできます。これもポー 
卜 E 2 H を使います。 

ポート E 2 H ( IN ) 


1:読み出し禁止状態 
0 :読み出し許可状態 
( OUT の時と逆です） 

ク ククク 
3 2 10 

図2 - 6 -C PC -8012-02 のバンクステータス 

(2) PC -8801-02 N 

PC-88(n-02N は 128K バイトのメモリを持っていて、 32K バイトずつ、 4 バンクに分けて 
使用します。つまり PC-8012-02 の4枚分ということです。また、 PC-8801-02N には力ード 
ナンバー設定用のジャンパーコネクタがあり、最大4枚（合計 512K バイト）を使) fl するこ 
とができます。 （ PC _8801 mkll では3枚まで） 

PC -8801-02 N のバンク制御にはポート E 3 H ， E 2 H を使います。 

ポート E 3 H ( IN / OUT ) 力ード•バンク制御ポート 
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ポート E 2 H ( IN / OUT ) リード/ライト制御ポート 


7 6 5 4 3 2 10 



※卩08801 mk II では書き込みのみ許可モードで使用してはいけません 

図2 - 6 -D PC -880 卜 02 N のバンク制御 

たとえば、力ード0、バンク2をリード/ライト許可にするときには、 

① E 3 H に 02 H を OUT する 

② E 2 H に 11 H を〇 UT する 

とします。また PC -8801-02 N は PC -8012-02 のように複数のバンクを同時に書き込み許可 
の状態にする機能はありません。 

現在セレクトされているバンクのリード/ライト状態はポート E 2 H を IN することにより 
知ることができます。このとき、 OUT のときとはビットの値が逆だということに注意しな 
ければなりません。 

以上のことを PC -8012-02 と比べてみると、ポート E 3 H に00を OUT すると PC - 8801 -02 N 
のカード0、バンク0は PC -8012-02 のバンク0と同じように扱えることがわかります。 
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2-7 すべてのメモリの PEEK/POKE プログラム（拡張 PEEK/POKE) 


今まで述べてきた方法で、グラフィック画面以外のすべてのメモリが読み書きできますが、 
これを BASIC で行なうことはできません。そこで、これを BASIC で手軽に行なえるように 
する機械語のプログラムを紹介しましょう。このプログラムを用いると PC - 8801 mk 11に標 
準装備されているすべてのメモリを読み書きできるようになります。なお、グラフィック 
VRAM と画面との関係は第7章を見てください。 

( 1 ) 拡張命令 ( CMD シリーズ）を使用しないとき 

① まず、 Clear , &HE 3 FF 0 を行なってからリスト 2-4 の機械語プログラムをモニタで正 
確に入力してください。入力し終わったら必ずセーブしてください。テープのときはモニ 

夕の W コマンド、ディスクのときは BSAVE 文で行なうのがよいでしょう。 

② モニタで、 「 GE 400 g 」 と行ない、 | CTRL | + 回で BASIC に戻ります。 

③ これで準備できました。使用方法は PEEK / P 0 KE を拡張した形で行ないます。 
<PEEK のとき> 

PEEK (アドレス，”バンク名”） 

< P 0 KE のとき> 

POKE アドレス，データ，，’バンク名，’ 

アドレスとデータは今までと同じです 0 バンク名には6つあります。バンク名とそのとき 
のメモリマツプを示します。 


” ”（スペース） 
ンク名または省略 ”N 


FFFF 

メイン RAM 


メイン RAM 

8000 

ウィンドウ 



N 88 'BASIC 

ROM 


N-BASIC 

ROM 


0000 





， ’ 〇 ” 


メイン RAM 


ブルー 

GVRAM0 


メイン RAM 






4th ROM 

テキスト RAM 


Nss-BASIC 



レッド 

GVRAM 1 


メイン RAM 


4th ROM 


N 88-BASIC 



グリーン 
GVRAM2 


メイン RAM 


41 h ROM 


N 88-BASIC 


FFFF 


8000 

6000 


0000 


図 2-7 -A バンク名とメモリマップ 


たとえば、テキスト RAM の 123 H 番地を読むときには、 ？ PEEK (& H 123，” T ，，)0 と行な 
います。また、 POKE &HC 000， 255，’’2’’ 0とすると、グラフィック VRAM のグリー 
ンバンクのアドレス C 000 H にデータ &HFF が書き込まれ、画面の左上隅に横棒が現われます。 
また、通常の PEEK 文、 POKE 文はこれまでどおり行なえます。 
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リスト 2-4 


E 4_ 
E 4 10 
E 420 
E 43« 
E 44 W 
E 450 
E 460 
E 470 
E 480 
E 490 
E 4 A 0 
E 4 B 0 
E 4 C 0 
E 4 D 0 
E 4 E 0 
E 4 F 0 

E 500 

E 510 

E 520 

E 530 

E 540 

E 550 

E 560 

E 570 


DA 00 
DA 10 
DA 20 
DA 30 
DA 40 
DA 50 
DA 60 
DA 70 
DA 80 
DA 90 
DAA 0 
DAB 0 
DAC 0 
DAD 0 
DAE 0 
DAF 0 

DB 00 

DB 10 

DB 20 

DB 30 

DB 40 

DB 50 

DB 60 

DB 70 


(2 ) 拡張命令を同時に使用したいとき 

(1) とやり方は同じなのですが、アドレスが異なります。 

① clear ，& HDAOO 0 で領域を確保し、リスト 2 - 5 のダンプリストを打ち込みます。 

② 初期化は h ] gda003 で行ないます。文法その他は （ 1 ) と同じです。 

リスト 2-5 


5 10 0 3 5 1 
E 7 0 B 2 E C 


0 

0 


02BD 78181095 EAFC 
03E 3727233 CEFDCB 

3314 D93D 3311505 D 53 1 D 2100 
0C20C25CD 03103 EC ED1E17B0 

1ED81ED 56633 E67C 1F003AD0 
03E2FFEEEDDD0D 72 7FD012E0 

508C 9711252 DABDF 
EB23CDD7CE0C10CC 

4D29FB9AA 3696819 
7E2CF 22237 FC52F0 

104FE5FA1A 61349 
10EF3DCE73E 325 C 


8 

2 


3E36C500 
53005 E00 

DFE161G0 

E5F0CC00 

13555210 

DDEEE100 


D 

E 

7 

2 


3 

0 


CBBB5D33 
3 F 21 


D B D F 


23EE17 503A3940 
CD5FED E7777C80 


1184352 F9AD3D 
02E09F3FC3F20 


9 B 34A1AE00 
72 7E 313350 


15D78D12E186B0F5 29942010 
2EE22CC03E0E014F 39C81B10 

1D104D50 

FCE58EE0 

15B100A0 
CEF 25070 


377278 1EFC0468B8 
F 72392 D35E 200201 

41ACEF 453196 AE63 
3136FCEED4CFC40A 

0DDEE7C5E 2167 E2D 
2EE37DBE 4 2 7 EBFDC 

7FFD35D 34032 ED35 
B99E2FC7E0DC700F 

512055 C296EA65E5 
E23AE 02392 F351F0 

40D24EF1D9E098BE 

7BE273CFC63CC203 

AD 7435955 B5DD06C 
3E2ECE0EEF03C202 


5 00 11 00 11 3 11 0 
C 2371020 

5D 333150 
FCDFD0C0 

1568E340 
DEED 3180 

1127530 A 
C7CEF251 


4 

E 


A A 
2 3 


0 1 3 D 9 

c E 2 c c 


02BD 78181095 EAFC 
03E 3727233 CEFDCB 

3314D93D 331150 BD 
0C20C25CD 03103 DC 

ED81EDB6633E67C 

3E2FFEDEDDD0D72 


51003 B10 
E70B2DC0 

B 3 1 D 
D D 1 


D 21 0 0 
E 1 7 B 0 


0 


IX 

7 


F 0 0 3 A D 0 
F D 0 12 E 0 


B08C 97112 B2DABDF 
DB23CDD7CD0C10CC 

4D29FB9AA 3696819 
7E2CF 22237 FC52F0 

FA1A 613498 
CE73E 325 C2 


3E36C500 
53005 E00 

DFE16160 

E5F0CC00 

13BBB 210 
DDDDD10 0 


1 0 A F E 5 

1 0 D F 3 D 

D3CBBB5D 3323 EE17 B03A3940 
E03F21DBDFCD5FED D 7777 C80 

7 118 4 3 5 

2 0 2 E 0 9 F 


2F9AD3D9B 

3FC3F2072 

1BD78D12E186B0F5 
2DE 22 CC03E0E014F 

772781 EFC0468B8 
72392 D35E 200201 


J 

r 


0-1ACEFA 53196 AE63 
J136FCDED4CFC40A 


0 

2 


3AA1AE00 
7D 313350 

29942010 

39C81B10 

1D104DB0 

FCE58ED0 

1BB100A0 
CDF 25070 


0 

0 


DDEE7CBE 2167 E2D 5 8 18 13 1 
EE37DBD427EBFDC c 237102 

5D 333150 
FCDFD0C0 

1B68E340 
DDED3180 

1127530 A 
C7CEF 251 


7FFD35D3A032ED35 

B99E2FC7D0DC700F 


B120B5C 296 
D23AD 02392 


E A 6 5 E 5 
F 3 5 1 F 0 


40D24EF1D9E098BE 
7BE 273 CFC63CC 203 

AD7A3B9BBB5DD06C 
3E2DCD0DDF 03 c 202 


AAA013D9 

D23CE2CC 
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第 3 章 .DISK-BASIC 内部構造 


3-1 NssDISK-BASIC メ モリ•マツプ 

NUDISK - BASIC では多くの ROM ， RAM のうち、以下のものを使用しています。 


FFFF 



GVRAM0 


GVRAM1 


GVRAM2 

- - - --- 

C000 

メイン RAM I 

••，ベ • * /， * :成 

C000 

cooo 

cooo 

8000 

• * • • • • • •メ： • • • •• ••： 1 


7FFF 

7FFF 

7FFF 

6000 

' テキスト 




モニタ 


4th ROM 


RAM 


• * ^ % * | ,* * ，*•••• | 

Nas-BASIC 


N-BASIC 




L * j 1 % . v . # • K \ ^ ^ * . 


ROM 

% j 

. 


ROM 



0000 

•. , : 

* . * 









1 

3000 





図3 

-1 -A N 88 -DISK 

BASIC メモリマップ 
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3-1-1 メ イン RAM 

メイン RAM は BASIC の変数領域、ワークエリア、テキスト VRAM なと'に使用されてし、 
ます。詳しいメモリマップはこうなっています。 


8000 

8400 


E 600 


F 300 

F 320 

F 3 C 8 


FFF 8 


FFFF 


テキスト•ウインドウ 


★デイスクコード 


★ ドライブホインタ 


ファイルポインタ 


★ ドライブテーフル 


フアイルバッファ 


ラベルテーブル 


単純変数テーブル 


配列変数テーブル 


フリースペース 


文字列エリア 


スタックエリア 


ユーザー機械語エリア 


ワークエリア 


ンタラフトベクトル 


空きエリア 


テキスト URAM 


空きエリア 


— BASIC テキストの一部が現われます 
—ディスク関係の処理ルーチンです。 


—ラベルが登録されます。 

—単純変数の値が入っています。 
—配列変数の値が入つています。 


—文字列が入っています。 

—ユーザーが作成した機械語をおきます 


/ N 88 ROM-BASIC では★の部分 
I がなくなります。 


図3-卜 B メイン RAM メモリマップ 


840 0 H 〜 E 5 FFH の領域は、どこからどこまでが何、とはっきり決められているわけでは 

ありません。場合場合によって変化します。そのために、各々の領域の場所を示すポインタ 
がワークエリアの中にあります。 

それぞれのボインタのアドレスとその示している場所は図 3 - 1 - C の诵りで、才。 


8400 



FRE ( O ) 


E 600 


デイスクコー 


ドライブホインタ 


フアイルボインタ 


ドライブテーブル 


フアイルバッファ 


ラベルテーブル 


単純変数テーブル 


配列変数テーブル 


フリーエリア 


文字列 


スタックエリア 


ユーザー機械語エリア 


ワークエリア 


ポインタアドレス （16 進) 

—( EC 81.82) 

—( EC 7 F .80) 


-( EB 16.17) 

<~( EB 1 BJC ) 

—( EB 1 D .1 E ) 
-( EB 1 F .20) 

-( EAF 1. F 2) 
一 ( EACC , CD ) 
—( E 654,5 5) 

—( E 7 E 8. E 9) 


図 3-1- C 領域の場所を示すポインタ 
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これらのポインタのうち、ドライブポインタテーブルの先頭、ファイルポインタテーブル 
の先頭、ラベルテーブルの先頭、使用可能エリアの最後はリセット時に決められます。また、 
文字列格納エリアの最後、スタックエリアの最後は CLEAR 文によって変更できます。他の 
ボインタはその時々にダイナミックに変化します。 

例えば、 CLEAR , & HDFFF , 10000と行なうと、スタックエリアの最後は DFFFH ， 
文字列格納エリアの最後は DFFFH -10 ⑻二 DC 17 H となります。実際にモニタで見てみま 
しよろ〇 

リスト 3-1 

clear ,& hdfff ,1000 

Ok 

mon 


h 〕 de 654 

E 654 [FF DF ] FF FF 01 00 1 C 6 F 4 E 45 *43 30 30 30 30 30 
h〕deacc _ 

EACC DClD 0 EA 051 A 03 02 36 DA 03 CD 80 00 00 00 


3-1-2 テキスト RAM 

テキスト RAM には通常、 BASIC プログラムのみが置かれてます。プログラムの後は空き 


エリアです。 


0000 


N 88 -BASIC 

フログラム 


FRE (!)< 


空きエリア 


7 FFF 、 


—( E 658,5 9) 


—( EB 18.19) 


図 3-1 -D テキスト RAM メモリマップ 
3- 1-3 メモリマップの変化 

( 1 ) ファイルポインタとファイルバッファ 

ファイルポインタとファイルバッファは、電源 ON 時の 「How many files ?」に対する答 
えによって変わってきます。入力した数値を N とすると、 # O 〜# N 0 N + 1個のボインタと 
バッファがとられます。ただ0キーを押した時は 、 ROM BASIC のとき2個 （ 1を答えたの 
と同じ）、 DISK - BASIC のときディスクドライブの数十1個のボインタとバッファがとられ 
ます。 

この数は EC 7 EH 番地に入っています。 EC 7 EH 番地が3のときは# 0 ~ # 3の4個のポ 
インタとバッファがあるということです。ただし、# 0のバッファは普通の用途には使えず、 
DSKI $， DSKO $ などでのみ使うことができます。つまり、 FIELD #0 は可能ですが、 
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OPEN 〜 AS #0 はできません。 

下図はオープンできるファイル数が1個の場合と3個の場合のメモリ.マップを示した 
ものです。 


file 数= 


file 数 = 3 


テキスト•ウインドウ 


ゴイスクコード 


棼〇ボインタ 


#1ポインタ 


ドライブ 


テーブル 


#〇ハ•ッファ 


林1バッファ 


ラベルテーブル 


8000 


テキスト•ウィンドウ 


ディスクコード 
ドライブポインタ 


SO ポインタ 


林1ポインタ 


#2ポインタ 


#3ポインタ 


ドライブ 

テーブル 


#0パツフ 


訪1パッフ 


#2ハ•ッファ 


林3 ハ•ッファ 


ラベルテーブル 


ボインタは各々2バイト 


各バッファは9バイトのフ 
ァイルコント ロールブロ ッ 
クと256バイトのバッファ 
とから構成されます。 
詳細は第4章を参照して下 
さい0 


図 3-1- E ファイルポインタとファイルバッファ 


(2 ) ラベル. 変数 テーブル 

ラベル •変数 テーブルは、プログラムによって、またその実行中に、刻々と変化します。 
ラベルテーブルは、 RUN の最初、 CLEAR , LOAD 後などの時にプログラム中からラべ 
ルを集めて、一気に作られます。この時、この後の変数テーブルは消されてしまいます。ま 
た RUN の時は最初にテーブルがつくられてしまうわけですから、実行中にラベルテーブル 
が変化することはありません。 

これに対して変数テーブルは、プログラム実行中に新しい変数が現われるたびに変化しま 
す。その概念図を図3 - 1 - F に示します。 


プログラム実行前 


RUN 直後 

変数をいくつか使った 
新しい変数を使った 


配列を ERASE した 


8000— 

— FFFF 

ファイル 

バッファ 

フリースペース 

- 

// 

1^1 フリースペース 


、へ、: . 

// 

// 

単純変数配列変数 フリースベース 

1 1 


卜、、 \ V 

\ ゞ 、、、 、 

_、、 w _^_ 

// 

// 

単純変数 

フじース 


• 

1 

! •ノノ 

y / 

// i 

// 

単純変数 

E 列変数フリースペース 


図3-卜 F ラベル•変数テーブル 
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(3 ) 文字列領域 

図 3-1- G のように、文字列はメモリの後のアドレスから順に格納されていきます。こ 
のとき、同じ文字変数に新しい文字列を代入すると、古い文字列はそのままで、新たに文字 
列領域を増やして、そこに新しい文字列を書き込みます。そのため、文字列領域内には、も 
う使われていない、ゴミとなった文字列がたまっていきます。 

これはどうするのかというと、いずれ文字列領域が増えて フ リ— スペースが なくなった時、 
新しい文字列を作ろうとしても作る場所がありませんから、その時にこれらのゴミを処分し 
ます。ゴミの部分を消して、使用中の文字列を後から順番にっめていくわけです。こうして 
新しい文字列のための スペースを 作ります。これを ガベージコレクショ ン （Garbage 
collection ) と呼びます。 

多くの文字列を使ったプログラムを実行していると、しばらく実行が止まってしまう こと 

がありますが、それはこのガベージコレクションを行なっているためです。また、 DIM 文 

で配列を宣言した時にフリースペースが足りない時や、 PAINT 文でフリースペース中にと 

る作業領域が足りない時もガベージコレクションを行なって、必要なメモリを確保しようと 
します。 

なお、 BASIC リファレンスマニュアルにもあるとおり、 FRE 関数でもガベージコレクショ 
ンを行ないます。これは逆に FRE 関数を用いて強制的にガベージコレクションを行なわせ 
ることができるわけで、要所要所にダミーの FRE 関数を入れておくことより、起こっては 
困るときにガベージコレクションが起こるのを防ぐことができます。 


変数テーブル 


変数テーブル 


変数テーブル 


変数テーブル 

フリースベース 

A 

• 

✓ 

〆 

✓ 

〆 

〆 

• 

フリースベース 


フリースベース 


フリースペース 

新文字列 

.. 

:：:•ニニ:“ 

文字列 

文字列 

旧文字列 

文字列 

スタックエリア 


スタックエリア 


スタックエリア 


スタックエリア 

ノ 


新しく文字列を使った 同じ文字列変数に 

新しく代入した 


ガベージコレクシヨ 
が行なわ n た 


図3 - 1 - G 文字列領域の変化 
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h 〕 <18000, 8030 
8000 00 18 00 
8010 DF 20 ID 
8020 2 C FF 87 
8030 00 
h 〕 


* h ] 〇70, 0 とあるのは、000 OH 番地から 3 FFH 番地をテキスト•ウィンドウに映すために、 
ポート 70 H に、データ0を OUT する命令です。 

各データは、図3 - 2 - B のような意味を持ちます。リストの1文字を1バイトと数えたと 
きよりもかなり短くなっています。 


3-2 プログラムの格納状態 

BASIC プログラムは、テキスト RAM の先頭から、行番号順に格納されています。それぞ 
れの行はこのような形式になっています。 



図 3-2- A 行の格納形式 

プログラムの終わりでは、リンクポインタの値が⑻となって、後に続く文がないことを示 
します。 

次に、プログラムテキストがどのように格納されるか見てみましよう。 

例として、次のプログラムを使います。 

リスト 3-2 

100 FOR 1 = 0 TO 20 STEP • 5 
110 PRINT I , SQR ( I ) 

120 NEXT I 

テキスト RAM は BASIC ROM と同じ番地にあり、直接見ることができません。そこで、テ 
キストウィンドウを使ってのぞいてみます。 

リスト 3-3 
h 〕 〇70, 0 


0 9 0 
2 4 0 

4 0 0 
12 0 

F 1 9 
0 9 4 

0 0 0 
2 2 2 

C 0 3 
D 0 8 

0 E 0 
2 6 0 

10 8 
10 7 

27 

9 0 F 
4 0 2 

0 0 0 
2 8 0 

2 0 9 
8 0 2 

0 0 9 
0 0 4 

4 0 8 
6 0 2 


F 


0 

0 
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0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

000A 

000B 

000C 

000D 

000E 

000F 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 


00 ※必ず 00 でなければならな i 


00 ] 


リンクポイン 


64 


] 行番号（=100) 


00 J 

82DF0R 

20] スペース 

49 コ丨 
Fill = 
llH 0 

20コスべース 

DC ： TO 

20] スペース 

0F lo . 

14> 

20 J スペース 

DF]step 

20 コスべース 

ID-1 

00 

00 0.5 

00 

80 」 

00] 行の終り 


夕 -0018 

0019 

001A 

001B 

001C 

001D 

001E 

001F 

0020 

0021 

0022 

0023 

0024 

0025 

0026 


リンクホインタ 

00」 

は]行番号 H 00) 

20] スペース 

9 IHprint 

20] スペース 

49] | 

2C ] ， 

FFn 
87] S0R 
28]( 

493 | 

29J ) 

00 U 行の終り 


)0027 

0028 

0029 

002A 

002B 

002C 

002D 

002E 


し 002 F 

0030 




リンクホインタ- 


78 


] 行番号 M 20) 


0 gj 1 j m ハ ■し 

83]next 

20] スペース 

4 9] | 

00] 行の終わり 


3 フロ 


グラムの終わり 


図 3-2- B サンプルプログラムの格納形式 


3-3 中間言語 

前の節で、 BASIC プログラムのテキストが短縮された形で格納され ている ことがわかり 

ました。これは BASIC のキーワード （ FOR ， PRINT など）を1バイトか2バイトの中間言語 
で表わしているからです。 

それでは、 N ««- BASIC でどのような中間言語が使われているのかを見てみましょう。 

3-3-1 中間言語 コード (00 H 〜 7 FH ) 

中間言語コードの 00 H から 7 FH は、数値や行番号、変数名などに使われます。 
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中間言語 

意 味 

備 考 

〇 A LF 

(Line Feed ) CTRL + J で入力 


0 B &〇 

続く 2バイトは8進数 

OB 9 C 02=&01234 

OC &H 

続く 2バイトは16進数 

OC 34 12=& H 1 234 

0 D アドレス 

続く 2バイトは飛び先絶対アドレス 

GOTO , GOSUB , THEN , 

ELSE , RESTORE などの 
後に続きます 

OE 行番号 

続く 2バイトは飛び先行番号 


OF 整数 

( 1バイト） 

続く1バイトは、10 〜 255の整数 

OF 50=80 

11〜整数 

1 A ( 1ケタ） 

1桁の整数 （11—0.12—1.1 A —9) 


1 B 

整数10 

通常使われていません 

1 C 整数 

(2 バイ1、） 

続く 2バイトは、整数 

1 C D 2 04=1234 

1 D 単精度 

(4 バイト） 

続く 4バイトは、単精度定数 

ID EB CO ID 81 

=1.2345 

1 F 倍精度 

(8 バイト） 

続く 8バイトは、倍数精度定数 


20 文字 

キャラクターコードに対応する文字 

(変数名やラベル名など） 

アルファべツ トの小文字に変 

換されるため使われません。 

7 F 


(*) 通常使われていません 


3-3-2 中間言語コード (80 H 〜 FFH ) 

中間言語コードの 80 H から FFH は、1バイトまたは2バイトで、 N 明- BASIC のキーワード 
を示します。（リスト3-4， 5) 

N - BASIC でも似たようなキーワードと中間言語コードを持っていますが、 N 『 BASIC と 

比べると対応していなかったり、バイト数が違っているものがあります。 N - BASIC のプロ 

グラムを 「 LOAD ” CAS 2 :ファイル名”」でロードして、リストをとってみると、この違 
いがわかるでしょう。 

またこの表をよく見ると POLL ， ISET , RBYTE など通常の N - BASIC では使われてい 
ないキーワードがあることがわかります。これらは IEEE インター フェース 用に用意された 
ものなのですが、 IEEE を使うつもりがなければユーザー拡張命令用のキーワードとして使 
用できます。そのやり方は「第15章ランダムテクニック」をご覧ください。 

* IEEE インターフヱイスとは：計測器の相互接続に使われる規格で、正式には IE 
EE 488 とか IEC バスとか呼びます。ヒューレット•パッカード社が開発したので、 
HP - IB とか GP - IB ともいいます。 
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(1)1 バイトで表わされるもの 

リスト 3-4 


80 

• 

• 


B0 

參 

參 

WEND 

81 

♦ 

參 

EMD 

B1 

# 

聲 

CALX 

82 

# 

參 

FOR 

B2 

秦 

争 


83 

• 

參 

NEXT 

B3 

♦ 

# 


84 

# 

参 

DATA 

B4 

# 

參 


85 

• 

峰 

INPUT 

B5 

# 

爆 

WRITE 

86 

# 

• 

DIM 

B6 

# 

# 

COMMON 

87 

# 

READ 

B7 

參 

• 

CHAIN 

88 

# 

參 

LET 

B8 

# 

參 

OPTION 

89 

# 

# 

GO TO 

B9 

# 

钃 

RANDOMIZE 

8A 

♦ 

參 

RUM 

BA 

參 

# 

DSKOS 

8B 

• 

♦ 

IF 

BB 

• 

參 

OPEN 

8C 

# 

# 

RESTORE 

BC 

參 

鲁 

FIFT D 

8D 

• 

參 

GOSUB 

BD 

參 

售 

GET 

8E 

# 

# 

RETURN 

BE 

# 

• 

PUT 

8F 

• 

參 

REM 

BF 

• 

• 

SET 

90 

聲 

• 

STOP 

C0 

參 

♦ 

CLOSE 

91 

• 

• 

PRINT 

Cl 

# 

• 

LOAD 

92 

# 

# 

CLEAR 

C2 

# 

參 

MERGE 

93 

• 

♦ 

LIST 

C3 

• 

FILES 

94 

• 

# 

NEW 

C4 

壽 

參 

NAME 

95 

# 

• 

ON 

C5 

# 

參 

KILL 

96 

# 

♦ 

WAIT 

C6 

• 

参 

LSET 

97 

身 

DEF 

C7 

參 

• 

RSET 

98 

# 

参 

POKE 

C8 

# 

• 

SAVE 

99 

# 

• 

CONT 

C9 

# 

• 

し FILES 

9A 

# 

• 

OUT 

CA 

鲁 

• 

MON 

9B 

♦ 

• 

LPRINT 

CB 

• 

參 

CO し OR 

9C 

• 

勢 

しし I ST 

CC 

• 

參 

CIRCLE 

9D 

镛 

• 

CONSOLE 

CD 

• 

• 

COPY 

9E 

離 

參 

WIDTH 

CE 

# 

参 

CLS 

9F 

# 

• 

ELSE 

CF 

# 

• 

PSET 

A0 

麯 

# 

TRON 

D0 

♦ 

♦ 

PRESET 

A1 

# 

TROFF 

D1 

# 

PAINT 

A2 

♦ 

# 

SWAP 

D2 

• 

• 

TERM 

A3 

# 

售 

ERASE 

D3 

# 

籲 

SCREEN 

A4 

勢 

争 

EDIT 

D4 

• 

# 

BLOAD 

A5 

# 

# 

ERROR 

D5 

寿 

秦 

BSAVE 

A6 

參 

# 

RESUME 

D6 

# 

# 

LOCATE 

A7 

# 

參 

DFI FTE 

D7 

参 

• 

BEEP 

A8 

# 

# 

AUTO 

D8 

# 

參 

ROLL 

A9 

# 

癱 

RENUM 

D9 

• 

參 

HELP 

AA 

# 

參 

DEFSTR 

DA 

• 

參 


AB 

♦ 

壽 

DEFINT 

DB 

蠢 

# 

KANJI 

AC 

• 

# 

DEFSNG 

DC 

# 

鲁 

TO 

AD 

拳 

• 

DEFDBL 

DD 

〇 

# 

THEN 

AE 

♦ 

争 

LINE 

DE 

# 

鑤 

TAB( 

AF 

• 

9 

WHILE 

DF 

離 

• 

STEP 


USR 

FN 

SPCC 

NOT 

ERL 

ERR 

STRINGS 

USING 

INSTR 

9 

VARPTR 

ATTR$ 

DSKIS 

SRQ 

OFF 

INKEYS 

> 

< 


氺 

/ 

A 

AND 

OR 

XOR 

EQV 

IMP 

MOD 

¥ 


0123456789 abcdef 0123456789 abcdef 

eeeeeeeeeeeeeeeeffffffffffffffff 
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LEFTS 

RIGHTS 

MID$ 

SGN 

INT 

ABS 

SQR 

RND 

SIN 

LOG 

EXP 

COS 

TAN 

ATN 

FRE 

INP 

POS 

LEN 

STR$ 

VAL 

ASC 

CHRS 

PEEK 

SPACES 

OCT$ 

HEXS 

LPOS 

CINT 

CSNG 

CDBL 

FIX 

CVI 

CVS 

CVD 

EOF 

LOC 

LOF 

FPOS 

MKI$ 

MKSS 

MKDS 


DSKF 

VIEW 

WINDOW 

POINT 

CSRLIN 

MAP 

SEARCH 

MOTOR 

PEN 

DATES 

COM 

KEY 

TIMES 

WBYTE 

RBYTE 

POLL 


I SET 
IEEE 
I RESET 
STATUS 
CMD 


( 2 ) 2 バイトで表わされるもの 

リスト 3-5 


0123456789 ABCDEF 0123456789 ABCDEF 0123456789 a^bcdef 
88888888888888889999999999999999 aaaaaaaaaaaaaa\a 

ffffffffffffffffffffffffffffffffffffffffffffffff 

ffffffffffffffffffffffffffffffffffffffffffffffff 


0123456789 abcdef 0123456789 abcdef 

eeeeeeeeeeeeeeeeffffffffffffffff 

ffffffffffffffffffffffffffffffff 

ffffffffffffffffffffffffffffffff 


0123456789 abcdef 0123456789 abcdef 0123456789 abcdef 

bbbbbbbbbbbbbbbbccccccccccccccccdddddddddddddddd 

ffffffffffffffffffffffffffffffffffffffffffffffff 

ffffffffffffffffffffffffffffffffffffffffffffffff 


42 





—— 6B8A N 6D40 

—— 6BA0 0 6D4F 

—— 6BAF P 6D68 

—— 6C0E Q 6D97 

—— 6C4A R 6D98 

—— 6C6F S 6DDA 

—— 6C89 T 6E21 

—— 6C9B U 6E41 

—— GCA4 V - 6E4A 

—— 6CCE W 6E58 

—— 6CCF X 6E7B 

—— 6CDC Y 6E7F 

—— 6D1C Z 6E80 


3-3-2 中間言語 テーブル 

中間言語とキーワードの対応表は、 ROM 内の 6B8AH 番地から 6E95H 番地に格納されてい 
ます。このテーブルは、入力したプログラムを中間言語に変換してテキスト領域に格納する 
ときや、逆にリストをとったりするときに使われるものです。 

• 中間言語テーブルの形成 

中間言語はキーワードの1文字目によって、アルファべット順に分類されています。分類 
されたキーワードの格納アドレスを示すテーブルが、 6B56H 番地から 6B89H 番地にありま 
す。 A 〜 Z の各頭文字に対して2バイトのアドレスが順にならんでいます。 

リスト 3-6 


つまり、 A を頭文字とするキマワ ー ドグルーフは 6B8AH 〜 6B9FH にあるということです。 
また、このテーブルを参照しなくても、各グループの間には、セパレータとして⑻が書き込 
まれていますので、初めから順に追っていけばデータがどのグループに属するかがわかりま 


す0 


例 


ATTR $ 

54 54 52 A 4 EB 



BSAVE 
53 4156 


次に、中間言語テーブルのデータ構造を見てみましょう。ここでもメモリ節約のため、い 
ろいろな工夫がなされています。 

各データは、キーワードと中間言語とから成り立っています。キーワードのデータは1文 
字 目が省略され （ 1 文字 目でグループ分けしてあるので不要）、キーワ ー ドの最後を示すため 
に、最後の 文字 データの最上位ビットを1にしてあります。また、中間 言語 コードについては、 
1バイトのものではそのままの形で、2バイトのもの （ FF + XX ) は、最上位ビットを0にし 
て1バイトで表わせるようにしてあります。 

<中間言語コードが1バイト> 


キーワード 

A 

U 

T 

〇 

「 A8 4 

キャラクタコード 

41 

55 

54 

4F ， 



テーブルデータ 


55 


言語コード 


54 CF A8 


ABCDEFGHIJKLM 
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< 中間言語コードが2バイト> 


キーワード 

H 

E 

X 

$ 

FF 9 A 中間 M 語コー 

■ 

キャラクタコード 

48 

45 

丄 

58 

1 

24 

4 


テーブルデータ 


45 

58 

A 4 

1 A 


次のプログラムで、これらのデ ー タ（キーワードと屮間吕語）を出力しこみましよつ。 

リスト 3-7 


100 • 

110 • N88-BASIC Key Words List C 1 〕 

120 f 

130 KW.TBL=&H6B8A 
140 TOP. WORD=ASC(”A ”） 

150 OPEN ” scrn:” FOR OUTPUT AS«1 
160 PRINT 烊 1, 

170 • 

180 木 SEARCH. KW 

190 KEY.WORDS=CHRS(TOP. WORD) 

200 ホ NEXT. CODE 
210 GOSUB 木 GET. CODE 

220 IF CODE=0 THEN TOP.WORD=TOP. WORD+1 : GOTO ホ SEARCH. KW 

230 IF CODE く &H80 THEN KEY. WORD$=KEY. WORDS+CHRS (CODE) : GOTO 冰 NEXT. CODE 
240 f 

250 KEY. WORDS=KEY. WORD$+CHR$(CODE AND &H7F) 

260 IF TOP. WORD=ASC (” Z”）+l THEN KEY. WORDS=MID$(KEY. WORDS, 2) 

270 PRINT 林 1,TAB (10);KEY.WORDS; 

280 f 

290 GOSUB 木 GET. CODE 
300 PRINTtfl, TABC20); 

310 IF CODE く &H80 THEN PRINT»l f ” FF ”； 

320 PRINTtfl, RIGHTS C 0 W +HEXS(CODE OR &H80),2) 

330 • 

340 IF KW. TBL く &H6E95 THEN 木 SEARCH.KW 
350 * 

360 END 
370 • 

380 ホ GET, CODE 

390 CODE=PEEKCKW. TBL) 

400 KW.TBL=KW. TBL+1 
410 RETURN 



GOSUB 

GET 

HEXS 

HELP 

INPUT 

ISET 

IEEE 

IRESET 

IF 

INSTR 

INT 

INP 

IMP 

INKEYS 

KEY 

KILL 

KANJI 

LOCATE 

LPRINT 

LLIST 

LPOS 

し ET 

LINE 

LOAD 

LSET 

LIST 

LFILES 

LOG 

LOC 

LEN 

し EFTS 

し OF 

MOTOR 

MERGE 

MOD 

MKIS 

MKSS 

MKDS 

MIDS 

MON 

MAP 

NEXT 

NAME 

NEW 

NOT 

OPEN 

OUT 

ON 

OR 

OCT$ 

OPTION 

OFF 

PRINT 

PUT 

POKE 

POLL 

POS 

PEEK 

PSET 

PRESET 

POINT 

PAINT 


リスト 3- 


AUTO 

AND 

ABS 

ATN 

A SC 

ATTRS 

BSAVE 

BLOAD 

BEEP 

CONSOLE 

COPY 

CLOSE 

CONT 

CLEAR 

CSRLIN 

CINT 

CSNG 

CDBL 

CVI 

CVS 

CVD 

COS 

CHR$ 

CALL 

COMMON 

CHAIN 

COM 

ClRCLE 

COLOR 

CLS 

CMD 

DELETE 

DATA 

DIM 

DEFSTR 

DEFINT 

DEFSNG 

DEFDBL 

DSKOS 

DEF 

DSKI$ 

DSKF 

DATES 

ELSE 

END 

ERASE 

EDIT 

ERROR 

ERL 

ERR 

EXP 

EOF 

EQV 

FOR 

FIELD 

FILES 

FN 

FRE 

FIX 

FPOS 

GOTO 

GO TO 


PEN 

FF 

D8 

RETURN 

8E 


READ 

87 


RUN 

8A 


RESTORE 

8C 


RBYTE 

FF 

DE 

REM 

8F 


RESUME 

A6 


RSET 

C7 


RIGHTS 

FF 

82 

RND 

FF 

88 

RENUM 

A9 


RANDOMIZE 

B9 


ROLL 

D8 


SCREEN 

D3 


SEARCH 

FF 

D6 

STOP 

90 


SWAP 

A2 


SET 

BF 


SRQ 

ED 


STATUS 

FF 

E3 

SAVE 

C8 


SPCC 

E2 


STEP 

DF 


SGN 

FF 

84 

SQR 

FF 

87 

SIN 

FF 

89 

STR$ 

FF 

93 

STRINGS 

E6 


SPACES 

FF 

98 

THEN 

DD 


TRON 

A0 


TROFF 

A1 


TABC 

DE 


TO 

DC 


TAN 

FF 

8D 

TERM 

D2 


TIMES 

FF 

DC 

USING 

E7 


USR 

E0 


VAL 

FF 

94 

VIEW 

FF 

D1 

VARPTR 

EA 


WIDTH 

9E 


WINDOW 

FF 

D2 

WAIT 

96 


WHILE 

AF 


WEND 

B0 


WRITE 

B5 


WBYTE 

FF 

DD 

XOR 

FA 


+ 

F3 


一 

F4 


氺 

F5 


/ 

FG 


A 

F7 


¥ 

FE 


t 

E9 


> 

F0 


二 

FI 


< 

F2 



A 

9 


0 12 
E E E 


DB 


B 

9 


A 4 215 7 
8 A 9 8 A D 


7 8 9 3 
A A A 8 


5 

D 


9 

9 


F 1 7 
D 9 9 


3 

D 


8DBDFFD985FFFFFF8BE8FFFF FC EFFF C5 DBD 6 9B9CFF 88 AEC1C 6 93C9 FF FF FF FF FFFF C2FDFFFF FF FFCAFF83C494E3BB9A95F9FFB8EE91BE98FFFFFFCFD0FFD1 


G E 5 
8 8 9 


4CDE012C6 

D999AAA89 


A 

D 


4 

E 


0 9 
D D 


F F 6 
8 9 A 


A8F8FFFFFFEB D5 D4 D7 9DCD S 9992FFFFFFFFFFFFFFFFFFB1B6B7FFCCCBCEFFA78486AAABACADBA97ECFFFF9F8 1A3A4A5E4E5FFFFFB82BCC3E1FFFFFF8989 


8 
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また、前のプログラムを多少変更すると、中間言語コード順に並べ換えた表が得られます。 

リスト 3-9 


100 f 

110 f N88-BASIC Key Words List C 2 〕 

120 ’ 

130 DIM K. (255) 

140 OPEN ” scrn:” FOR OUTPUT AS»1 

150 f 

160 KW.TBL=&H6B8A 
170 TOP. WORD=ASC (” A ”） 

180 f 

190 木 SEARCH.KW 

200 KEY. WORD$=CHRS (TOP.WORD) 

210 木 NEXT. CODE 

220 GOSUB 木 GET. CODE 

230 IF CODE=0 THEN TOP. WORD=TOP. WORD+1 : GOTO ^SEARCH.KW 

240 IF CODE く &H80 THEN KEY. WORDS=KEY- WORD$+CHR$ (CODE) : GOTO 州 EXT.CODE 

250 f 

260 KEY-WORD$=KEY- WORDS+CHRS CCODE AND &H7F) 

270 f 

280 GOSUB ホ GET.CODE 

290 IF TOP. WORD=ASC(”Z”）+l THEN KEY. WORDS=MID$ (KEY.WORD$ f 2) 

300 K. (CODE)=KEY. WORD$ 

310 f 

320 IF KW-TBL<&HGE95 THEN 木 SEARCH.KW 
330 9 

340 PRINT 林 1, 

350 PRINT«1, ” - STATEMENTS and COMMANDS -” 

360 FOR CODE=128 TO 255 

370 PRINT 料 1,HEXS (CODE)" : ";K.W$ (CODE) 

380 NEXT 
390 PRINT «l f 

400 PRINT 林 1, ”- FUNCTIONS -” 

410 FOR CODE=0 TO127 

420 PRINTtfl, W FF "HEXS (CODE+&H80)" : ” ； K.W$ (CODE) 

430 NEXT 
440 PRINT 林 1, 

450 END 
460 f 

470 ホ GET. CODE 

480 CODE=PEEKCKW. TBL) 

490 KW. TBL=KV/. TBL+1 
500 RETURN 


3-3-4 リストで BEEP 音を 

中間言語の 1 から9は普通使われませんが、この中でおもしろい使い方ができるのが、コー 
ド7です。 

これは BEL コード （ BEEP 音）を表わし、直接キーボードから入力することはできません。 
そこで、直接、中間コードを書き直すことにしましよう。 

次のプログラムを入力します。 （’*’ は、 BEEP 音を出したいところを示します） 

リスト 3-10 

list 

10 REM 木 S 冰 A 本 M 本 P 木 L 木 E 木 

Ok 
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*START 

GOSUB ホ INITIALIZE 

t 

^WRITE- BOX 

X = RND > K 600 : Y = RND ^180 


次に、モニタモードで、必要な部分*(コード 2 AH のところ）をコード 7 に直します。 

リスト3-11 

mon 

h 〕 d8000, 8016 

8000 00 15 00 0A 00 8F 20 2A 53 2A 41 2A 4D 2A 50 2A 

8010 4C 2A 45 2A 00 00 00 

h 〕 s8007 

8007 2A-07 53- 2A-07 41- 2A-07 4D- 2A-07 50- 2A - 07 40 2A-07 45 - 2A-07 00- 
8015 00- 

h 〕 <18000，8016 

8000 00 15 00 0A 00 8F 20 07 53 07 41 07 4D 07 50 07 

8010 4C 07 45 07 00 00 00 

h 〕 •八 b 

Ok 

BASIC に戻して、リストをとってみて下さい。どうですか、1文字毎に BEEP 音が出ま 
すね。 

リスト 3-12 

list 

10 REM SAMPLE 
Ok 

なお、この行を修正する（修正しなくても、この行のところで g キーを押す）と、リストを 
とっても音は出なくなります。 

3-4 ラベル テーブル 

ラベルテーブルは、ラベルテーブル先頭ボインタ （ EB 1 6，17 H ) で示されるアドレスから、 
単純変数テーブル先頭ボインタ （ EB 1 B ，1 CH ) で示されるアドレスの1つ前までです。 

ラベルはこの中に、次のような形式で登録されます。 


ラベル名 



フベルの長さそのラベルがついている行の先頭アドレス ー;! 


図 3-4- A ラベルの格納形式 

それでは、実際にラベルがどのような形で登録されるか見てみましょう。 
次のプログラムを入力した後、 CLEAR 文を実行します。 

リスト 3-13 


0 0 
0 1 

0 0 0 0 
IX IX IX IX 


0 0 0 
2 3 4 
0 


47 






8000 國 0C 00 
8010 20 8D 20 
8020 00 FC 03 
8030 45 2E 42 
8040 1C 58 02 
8050 1A 04 20 
8060 29 00 7D 
8070 0F 28 2C 
8080 04 20 D1 
8090 85 28 FF 
80A0 38 04 89 
80B0 00 42 04 
80C0 49 414C 
80D0 11 00 D9 
80E0 14 00 E8 


図 3-4 -C プロクラム中のラベル 


1050 CLR=INT (RND 木 7+1) 

1060 LINE (X f Y) — STEP(40,20),CLR,B 
1070 PAINTCX+20,Y+10),INTCRND^7+1),CLR 
1080 GOTO 木 WRITE. BOX 
1090 f 

1100 ^INITIALIZE 
1110 SCREEN 0,0 
1120 RANDOMIZE 
1130 CLS 3 
1140 RETURN 

これでラベルテーブルができあがりました。各ボインタの値を見てみましよう。 

EB 16 ElB 2 (ラベルテーブルの先頭） 

EB 1 B 02 B 3 (単純変数テーブルの先頭） 

ラベルテーブルは、 B 2 E 1 H 番地から B 301 H 番地にあるわけですね。それではそちらの方 
をプログラムと比較して見てみます。 

• ラベル.テーブル 

——ラベル長 = 5 

—ラベルのついている行の先頭アドレスー1=0 

ラベル名 =“ START ” 

B2B1 M ) [010 .00] IS 3 54 41 52 541 [0 こ記 g_6__00j [57 52 49 54 4 5 
B2C12E 42 4F 581 [0A] jBA. ? 0J 149 4E 49 54 49 41 4C 4 9 5A 
B2D145J 

図 3-4 - B ラベルテーブルの内容 


• テキストウインドウから見たプログラムデータ（実際は 0( X )0 H 番地から) 


3 7 
0 2 

2 0 
F 0 

0 5 
0 4 

F A 
15 

0 9 
0 4 


F5 

57 

52 

49 

54 

58 
0F 
88 

59 
42 
0F 
4C 
42 

FI 

B4 

F5 

29 

00 

0A 

52 

4F 

FF 

00 

18 

F4 

9E 

29 

00 

58 

88 

62 

F3 

DF 

00 

2C 

AF 

00 

F5 

00 

12 

28 

2E 

FF 

00 

B7 

F5 

49 

4E 

49 

54 


C 0 0 
2 


2 


1 E 
1C 

0 0 

2 2 

3 4 
D 0 

0 A 
2 G 


0 

0 

0 

0 

0 

0 

0 

0 

0 


41 

5 


2 

5 


4 

5 

3 

5 

5 

F 


C405FCC33E4400 
402FF22F 420000 

16488829 C5C 620 
40082555244 5 E0 

900F58CC 940000 
401F 8242250000 

4G01FE 34297290 
530FFA4114CDB0 

90E910CF 32000 E 
4045F220F 50028 


E 9002493879 
4E 02502 F15E 


3 9 F 
0 4 8 

8 5 A 
E F 3 


8 一 Ac 44855 F 
534215 FF8 

F030F880A 

424002823 


5 

4 


4 4 
0 0 

A-0 4 
5 6 7 


9 

4 


0 

0 
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3-5 変数テーブル 


3-5-1 単純変数 テーブル 

単純変数テ ー ブルは、 ラベル テ ー ブルの後に作られます。 

この領域は、単純変数テーブル先頭ポインタ （ EB 1 B ，1 CH ) で示されるアドレスから、酉己 

列変数テーブル先頭ボインタ （ EB 1 D ，1 EH ) で示されるアドレスの1つ前までです。 

プログラム中で変数が使われると、その型に応じた形式で、それが使われた順番に登録さ 

れていきます。変数の値の参照は、このテーブルの先頭から行なわれていきますので、頻繁 
に使う変数を早めに定義しておくと、実行速度を上げることができるわけです。各変数は、 

その型によって次のような形式で登録されます。 


整数型 2 変数名* データ 

▲ (2 バイト） 


単精度型 4 変数名* データ 

▲ (4 バイ•卜） 


倍精度型 8 変数名* データ 

▲ (8 バイト） 


文字型 




▲ (3 バイト） 


(▲ VARPTR て•示される） 


* ) 変数名 



P 残りの変数名の長さ 





— 

— 


、 -- - - / 


変数の頭2文字 残りの変数名 

(1 文字の場合，2バイト目は 0) (最上位 bit が1になっている） 


氺 *) ストリングディスクリプタ 



文字列格納ァドレス 
一文字列の長さ 

図 3-5 -A 単純変数 テーブルの 構造 
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100 A%=1234 

110 BCD% 二 - 1234 

120 DEFGHI !=1 - 2345 

130 JKLMNOtf=l. 234567890123456 « 

140 PQRSTUS=" 1234567890" 

※ボインタの値 

h〕deblb 

EB1B B1 B2 E5 B2 

配列エリアの先頭フリーエリアの先頭 
※単純変数テーブル 

h 〕 db2b 1, b2e4 

B2B1 02 41 00 00 D2 04 02 42 43 

B2C1 04 C6 C7 C8 C918 04IE 81 

B2D1 CF Cl CF B214 52 06IE 81 

B2E1 D5 0A F6 E3 


図 3-5- B 単純変数 テーフルの 例 


ちょっとわかりにくいですね。各変数ごとに見てみましょう 
- A % = 1234 

B2B1 [0 匀 [41 00" M ： LD2 _ 04! 


BCD % 


型変数名レ A ) 

=-1234 


1234 


B2B7 «02*L42 43 01 C4 は E F 璉 

1 i 'I 

型変数名（ヾ BCD 》 -1234 


• DEFGH !=1,2345 

B2BF [04J [44 45 04 C6 C7 C8 C9 ； ^18 04IE 81 ； 


型変数名 （=’ DEFGH 「) 


1.2345 


J K LM NO 甘 = 1 ， 2345678901234 56# 


B2CA [08«[4A 4B 04 CC CD CE CF- ： C7 CF 6214 52 06IE 81] 


型変数名 UKLMNCT ) 


1J 234567890123456 


PORSTUS = ”1234567890 .， 


B2DA !03」[50 51 04 D2 D3 D4 D5j }0A F6 E3| 


型変数名（ビ PQRST び) 


ストリング•デイスクリブタ丨文字列の長さ=10 


文字列の格納アドレス 

= E 3 F 4 H 


図 3-5- C 変数ごとの例 


実際の例で確かめてみます。次のプログラムを実行した後、各ポインタ及び単純変数テー 
ブルを見てみましよう。 


5 E 4 
4 c D 

4 D 3 

4 c D 

4 C 2 

0 c D 

B 4 4 
F 0 0 


E B 
2 4 


5 


4 A 0 
C 4 5 

18 3 
0 0 0 
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DIM A%(3, 2) 

FOR 1=0 TO 3 
FOR J=0 TO 2 
A% (I,J) = I+J 
NEXT J 
NEXT I 


(変数の型によって， 2 , 3 ， 4 ， 8 バイト：単純変数参照) 

*) 要素の順番は DIM A (2，3，4 ) の場合、次のようになる， 

(OPTION BASE 0場合） 


※ポインタの値 

h〕deb 1 d 

EB1D Cl B2 E4 B2 

-- - -- - - --- 

配列エリアの先頭フリーエリアの先頭 
※配列変数テーブル 

h 〕 db2cl, b2e3 

以降の使用メモリ 
型 変数名 次数 


型 

J_, 

[021 


B2C1 [02] 141 00 001 11D 0011021 
B2D1 00 03 00 01 00 02 00 
B2E1 00 [0_5 0J3J 

垂妄バ n フ） 


7) 使用メモリ 配列数 

次数 /\ 要素^ 

I ' / \ 飞 r l _ 

ID 00] |02| [03 00] 104 001 L0 0 . 0 i 


要素 A % (0.0) 


03" J30] 104 00| [0,0 "00] 01 00 
03 00 04 00 02 00 03 00 


02 

04 


整数型配列変数 


整数型配列変数と文字型配列変数について実際に見てみましよう。 


図 3-5- D 配列の格納形式 


A ( 1，3，4 ) 

A (2， 3， 4) 

注）配列の宣言と逆順になる 




3-5-2 配列変数テ ー フル 

配列変数テ ー ブルは単純変数テ ー ブルの後に作られます。 

このテーブルは、配列変数テーブル先頭ボインタ （ EB 1 D ，1 EH ) で示されるアドレスから、 
フリースペース先頭ポインタ （ EB 1 F ，20 H ) で示されるアドレスの1つ前までです。 

ここも、単純変数テーブルと同じように、 DIM 文を実行したり、添字が10以下の配列変 
数を使ったときに、その順番で登録されます。 ERASE 文を実行すると、その配列変数のテ ー 
ブルが消されて、後ろにあるテーブルが前に移動してきます。 

配列変数テーブルの形は、各配列に ついて 次のようになります。 
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B2C1 

B2D1 

B2E1 


以降の使用メモリ 

変数名 次数 

42" 01 C 31129 001 [021 醒 
03 EB E3 03 E2 E3 03 
DF E3 03 F7 E3 03 EE 


※ホインタの値 

h〕deb 1 d 

EB1D Cl B2 FI B2 

、 、 • i 、一 ■ ■ ■〆 

配列エリアの先頭フリーエリアの先頭 
※配列変数 テーブル 

h 〕 db2c 1, b2f0 


要素 ABCS (0,0) 

のストリングデイスクリフタ 

Ml[03"FD ； ¥3; 03 
03 FI E3 03 E8 
E5 E3 1031 DCli3J 

要素 A 占 CS (3.2) のスト 

リングデイスクリフタ 


DIM ABC$ (3,2) 

FOR 1=0 TO 3 
FOR J=0 TO 2 

ABCS (I, J)= ，， ABC” 
NEXT J 
NEXT I 


©文字型配列変数 


図 3-5 -E 整数型配列変数と文字型配列変数の例 


4 


3 


型-1 


3 
E 0 


4 3 
F E 



0 0 0 0 0 0 
0 12 3 4 5 

11 11 IX IX 11 IX 
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3-6 文字列 エリア 

文字列エリアには文字型変数の実際の文字列が納められています。 
例として次のプログラムを実行します。 

リスト 3-14 

100 A$= ” ABC”+”DE” 

110 BS=CHR$ C64) 

120 A$=” 1234” 


このとき文字列エリアは次のようになっています。 

(EAF1.F2) (EACC.CD) 

8000— _1 _ i _ — FFFF 

12 34 ©ABODE スタックエリア 


A $ のデイスクリプタ 

T 

4 アドレス 

B $ のデイスクリプタ 

1 アドレスー ! 


長さ 

図 3-6- A 文字列エリアの様子 （1) 

「3-1 -3 メモリ•マップの変化」で述べたとおり、最初に A $ に代入された 「 ABCDE 」 
はメモリ上から消えずにそのまま残っているのです。 

ここでさらにダイレクトモードで A $ = ” xyz ” と行なうと次のようになります。 

(EAF1.F2) (EACC’CD) 


8000 一 

I 

1 

—FFFF 


x ) 

! z 1234 色 ABCDE 

スタックエリア 


図 3-6 -B 文字列エリアの様子 （2) 

ここでガーべジコレクションを行なってみましよう。 

? FRE ( 0 ) 

こうすると次のようになります。 

(EAF1.F2) (EACC.CD) 

8000- __ i _ i —FFFF 

xyz 12 34 @ A X Y Z @ スタックエリア 

- ---^ T 

て BS 
A$ 

図 3-6 -C 文字列エリアの様子 （3) 
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現在使用されている 「 xyz 」 と「@」だけが、文字列エリアの後からつめられて、 （ EAF 1， F 2 H ) 
が移動しました。ここで B $ 二” アイウ” +”ェオ”と行なうと、このようになります。 


F260 

F270 


new やリ セツ トした直後に モニタに 入り、上のプログラムを正確に打ち込みます。 F 260 H 
番地から実行させると （ GF 260 P ]) すぐに戻ってきますから、 BASIC に戻り、 CLEAR :2 と 
します。これでプログラムが復活しました。ためしに LIST をとってみてください。 

この方法は、ディスクを起動せずに作ったプログラムをディスクに入れる時にも使えます。 
リセツトしてデイスクを起動した後に、これを実行すればよいわけです。 


(EAF1 ， F2) 


(EACC,CD) 


8000 


FFFF 


x 


z 


アイウェオ X Y Z C « 


スタックエリア 


B$ 


AS 


図 3-6- D 文字列エリアの様子 （4) 


3 -7 BASIC プログラム復活 


New やリセットをした場合、以前入っていたプログラムは消えてしまうわけですが、実際 
にメモリから抹消されてしまうわけではなく、プログラムの最初のリンクポインタとプログ 
ラムの終わりを示すボインタ （ EB 1 8，19 H ) がクリアされるだけです。従ってこれらの値を戻 
してやればプログラムが復活します。 


0000 


7 FFF 


0 0 1 

NEW 

リセット 

K 

0 0 

リンクポインタ 

0 0 

0 0 

フログラム 

プログラム 
の残り 


<— ( EB 18 J 9) 

00 

00 

00 

00 





最初のリンクポインタと （ EB 18,19) を戻す 


図 3-7- A 復活の原理 


( EB 18 J 9) 


これを自動的に行なうプログラムを次に紹介します。 

リスト 3-15 


2 

2 

3 
2 

4 

4 

5 
D 

D 

C 

B 


B 

B 

D 

C 

5 

0 


D F 
B F 

D B 

c E 

1 A 
11 

6 2 
3 3 

6 F 
E A 

8 B 
5 E 


A 8 
21 
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第 4 章入出カファイル 


4-1 入出力装置とファイル 

IvU-BASIC では、本体と入出力装置との情報のやりとりを「ファイル」という概念で行なっ 
ています。ファイルは本来ディスクなどの外部記憶装置に対して考え出された概念なのです 
が、現在ではもっと一般化されて、すべての入出力装置をファイルとしてとらえることが多 
くなっています。極端な例では RAM ファイルなどという主記憶の一部をファイルとして扱 
うものさえあります。 （ PC -8801 mkII 用 CP / M ( NEC 製）では拡張 RAM を仮想的なデ ィス 
クとして扱っています。） 

このようにすべての人出力装置をファイルとして統一的に扱うと、どの装置に対しても同 
じように相手をすることができ、入出力先の変更も容易にできます。 

N ^ BASIC では、ファイルは「デバイス名」と「ファイル名」で指定されます0ただし、 
ファイル名が存在するのは、一つのデバイ スに 複数のファイルを作ることができるディスク 
とカセットだけです。また、 RS -232 C ではファイル名の代わりに通信仕様を指定します。 

4-2 変数でファイル指定 

デバイス名とファイル名を合わせたものをファイルディスクリプタといい、両端をダブル 
クォ ー テ ー ションで囲って表わします。つまり文字列になるわけですから、文字変数をファ 
イルディスクリプタとして使うことができます。これにより入出力装置の変更がいっそう容 

易になります。 

F $ = ”2 : DEMO ” 

として 

OPEN F $ FOR OUTPUT AS #1 

など、ファイルのアクセスを F $ を使って行なえば、プログラム中から2 : DEMO をすベて 
捜し出さなくても、 F $ 二” LPT 1 :”としただけで、プリンタに出力先が変わります。こ 
の方法は次のようなときに使えます。 

① プリンタに出力するプログラムをデバッグしているときに、いちいちプリンタへ出力して 
いたのでは遅いし、紙の無駄にもなります。このようなときに F $ = ” SCRN :”としてデバッ 
グし、あとで F $ 二’’ LPT 1 :”とすれば効率よく開発できます。 

② 結果をプリンタに出したいが時間がない、またはここにはプリンタがない、というときに 
は卩$ = ”ファイル名”としてディスクに出力しておき、あとからそれをプリンタに出します。 
プリンタへの打ち出しは、 

10 OPEN ” ファイル名” FOR INPUT AS # 1 
20 WHILE NOT EOF (1) 
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30 し PRINT INPUT $( 1，1) 

40 WEND 
50 CLOSE 

というプログラムで簡単に行なえます。 

③同じものを場合によって画面とプリンタへ切り換えて出力するときに、 F $ に SCRN :か 
LPT 1 :を入れておいて、 F $ で OPEN して出力します。実際の例は「第11章プリンタ」で 
紹介します。 

4-3 フアイルバッファ 


N « 8 _ BASIC ではすベての入出力装置を統一的に扱うために、ファイルバッファというも 
のが用意されています。ファイルバッファは特にディスクの入出力時に重要な働きをします。 
ディスクは ハー ド的にはセクタ （ N « 8 _ BASIC では256バイト）ごとにしか入出力できないから 
です。 


右図のように# 〇〜 # n のファイル 
バッファがとられますが、各ファイ 
ルバッファの先頭アドレスを、ファ 
イルボインタ （ 2バイト）が示して 
います。これは VARPTR (林 ファ 
イル番号）で返されるものと同じで 
す。 

ファイルバッファは9バイトの作 

業領域 （ FCB ) と256バイトの I / O バ 
ッファから構成されています。 


8000 


VARPTR (社 n)— 


VARPTR( ttn)+9-> 


FFFF 


前のファイル 

バッファ 


FCB 9バイト 


I/O レ56バイト 

バッファ 


次のフアイル 

バッファ 


8000「 




令 






FFFF 


テキストウインドウ 

デイスクコード 
ドライブポインタ 


ファイルポインタ# 0 


ファイルポインタ#1 


ファイルポインタ？: 


ファイルポインタ if n 


ドライブテーブル 


フアイルバッファ 

it n 


ファイルノ くッファ 
# 1 


フアイルバッファ 
せ？ 


フアイルバッファ 

#n 


ラベルテーブル 




( EC 7 F ,80) が指す 


n:How many files に 
対して入力した数 


K — VARPTR (# n ) 


図 4-3 -A ファイルバッファ 


図 4-3- B ファイルバッファの構成 
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作業領域の内分けは次の図表の通りです。 


VARPTR (# n ) 


+ 1 


+ 2 


+ 3 
+ 4 
+ 5 
+ 6 


+ 7 


+ 8 


FCB (ファイルコントロールブロック） 


ノア^!ルモ——ド 


7 6 5 4 3 2 


0 


一 FOR INPUT 
- FOR OUTPUT 

•ランダムアクセス 

- FOR APPEND 
- FOR IBM 


CLOSE されている時は〇〇 


先頭クラスタ番号 


現在のクラスタ番号 


現在のセクタ番号 


デバイス番号 


バッファ長 


デー タボインタ 


フアイル属性 


仮想へッド位置 


ファイルが格納されている先頭のクラスタ番号 
(デイスクフアイルのみ） 


アクセス中のクラスタ番号 
(デイスクフアイルのみ） 


セクタ番号 


下図參照 


256バイトの時は00 


シーケンシャルファイルの時、次に読み書きする 
データ の位置 


ビ 


7 6 5 4 3 2 


0 




一 機械語ファイル 
ープロテクトが ) 


特殊 コード （ E) 
リードアフターラ 
非アスキー形式 


卜 （ R ) 


CLOSE されている時は00 


シーケンシャルファイルで、レコード （ CR で区切 
られる文字列）中でのデータポインタの位置 


図 4-3 -C FCB 


デバイス番号 

デバイス名 

デバイ ス 

〇〜7 

1:〜8 : 

ディスク （ ドライブ番号一 1) 

F 8 

S C R N ： 

スクリーン 

F 9 

し P T 1: 

プリンタ 

F A 

C A S 2 ： 

カセット600ボー 

F 巳 

C A S 1 : 

カ セット 120〇ボー 

F C 

C 〇 M 3 : 

RS -232 C チヤネル3 

F D 

C 〇 M 2 : 

// チヤネル2 

F E 

C 0 M 1 : 

// チヤネル1 

F F 

K Y 巳 D : 

キーボード 


図 4-3- D デバイス番号 
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◎ファイルバッファアドレスー覧表 

2ドライブ時のファイルバッファアドレスの 一 覧表を載せておきます。これは [ Aug 19, 

1983] バージョンのものです。他のバージョンの場合 （ PC - 8801のとき）や、ドライブ数が 

異なる場合は、下の出カプログラムを走らせてください。 

リスト 4-1 

100 f 

110 ’ FILE BUFFER ADDRESS TABLE 
120 • 

130 DEFINT A - Z 

140 ’FI し TAB=&HAE1E : BIAS ニー 20620 : , C8801 KANJI BASIC May 15,1984 〕 

150 FI し TAB=&HAE3A : BIAS ニー 20592 : , 〔Aug 19,1983 〕 

160 •FI し TAB=&HADA6 : BIAS=-20740 : , 〔Apr 24,1982 〕 

170 • FI し TAB=&HAE1E : BIAS= -20620 ••’ CAug 20,1982 〕 

180 ’FI し TAB=&H8400 : BIAS= —31742 : , ROM BASIC 

190 1 

200 OPEN FOR OUTPUT AS«1 

210 PRINT «1,CHR$ (27)+ ，， Q”+CHR$ (27)+”T10” 

220 f 

230 ’ OPEN FI し E« 

24 0 PRINT 林 1,” » OF OPEN FILES 

250 FOR 1 = 0 TO15 : PRINT »1,USING” n ;1; : NEXT 

260 NF= — 1 : GOSUB ホし F 

270 ’ FILE POINTERS ADRS 

280 PRINT POINTERS TOP ”； 

290 FOR N=0 TO15 

300 PRINT «1,HEX$ (FI し TAB);” 

310 NEXT 

320 NF= — 1 : GOSUB ホし F 

330 PRINT 林 1,"FILE POINTERS END 

340 FOR N=0 TO15 

350 PRINT 林 1,HEXS (FILTAB+N 木 2+1) 

360 NEXT 

370 NF=-1 : GOSUB 木し F 
380 • 

390 , - FILE BUFFERS 

400 ’ —— WORK —— 

410 FOR MOF=0 TO15 

420 PRINT 饵 1 , ’， F C B TOP ； 

430 FOR N=0 TO MOF-1 
440 PRINT «1,” 

450 NEXT 

460 FOR N=MOF TO15 

470 VPTR=MOF 木 265+N 木 2+BIAS 

480 PRINT #1,HEX$ (VPTR) •/’” ； 

490 NEXT 

500 NF=MOF : GOSUB 木 LF 

510 ， 一一 TOP OF BUFFER 一一 

520 PRINT #1 ,，， BUFFER TOP ，， ； 

530 FOR N=0 TO MOF - 1 
540 PRINT tf1,” 

550 NEXT 

560 FOR N=MOF TO15 

570 VPTR=MOF 木 265+N 木 2+BIAS 

580 PRINT tfl, HEXS (VPTR+9) ;”，， ； 

590 NEXT 

800 NF= 一 1 : GOSUB 木 LF 
610 NEXT 
620 1 

630 PRINT tfl ， CHR$ (27) ;”N ，，； CHR$ (27) ;’’H” ； 

640 PRINT ttl,CHR$ (27)+ ，， A” 

650 END 
660 * 

670 ， - 1 ine feed 

680 木し F 

690 PRINT »1, 

700 IF NF>=0 THEN 730 
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710 PRINT #1 ， STRINGS(99, 

720 RETURN 

730 PRINT «1,USING” .««« ” ； NF; 

740 PRINT »1,STRINGS(93, 

750 RETURN 


リスト 4-2 

N 88 -DISK BASIC 


2 ドライブ 


ファイルバッファアドレス ー覧表 


フ 

ア 



ル 

番 

口 


« OF OPEN FILES 0123 4 5 6 7 8 91811 1Z 131415 

FILE POINTERS TOP AE3A AE3A AE3A AE3A AE3A AE3A AE3A AE3A AE3A AE3ft AE3A ftE3ft AE3A AE3A AE3A AE3A 

FILE POINTERS END AE3B AE3D AE3F AE41 AE43 AE45 AE47 AE49 AE4B AE4D AE4F AE51 AE53 AE55 AE57 AE59 

"F C B TOP AF90 AF92 AF94 AF96 AF98 AF3A AF9C AF9E AFA0 啦 L 啦 8 」 [ 的 H 啦 !. 

_ BUFFER TOP AF99 AFBB AF90 AF9F AFA1 AFA3 AFA5 AFA7 AFA9 AFAB AFAD AFAF AFB1 AFB3 AFB5 AFB7 

H , F C B TOP B09B B09D 809F B0A1 B0A3 B0A5 B0A7 B0A9 B0AB B0AD B0AFJ081_B0B3 J0B5 J0B7_ 

11 1 _'BUFFER"TOP B0A4"B0ABl0A8l0AA B0AC B0AE B0B0 B0B2 B9B4 80B6 B0B8 B0BA B9BC B0BE B0C6 

R 1 BUFFER TOP B1AF B1B1 8183 B1B5 B1B7 B1B9 BIBB B1BD B1BF B1C1 B1C3 B1C5 B1C7 B1C9, 

tt3 .LCJ.W_ _ 

J _ BUFFER TOP _ B2BA B2BC B2BE B2C6 _B2C2 B2C4 B2C6 B2C8 B2CA B2CC B2CE B2D8 B2_D_2_ 

F C B TOP B3BC B3BE B3C8 B3C2 B3C4 B3C6 B3C8 B3CA B3CC B3CEJ3D0.B3D2. 

M lUFFER'TOP B3C5l3C7 _ B3C3 B3CB B3CD B3CF 83D1 B3D3 B3D5 B3D7 8309 B30B 

u 5 上 C—B—Jl—__ ? 迎 . 拠柳 .? 逆 J 泄』迎 ^^ 

b BUFFER TOP B4D0 B4D2 B4D4 B4DB 8408 B4DA B4DC B4DE B4E0 B4E2 B4E4 

« 6 』丄 BJP_.. 漂 ^ 

R b BUFFER TOP _ B5DB B5DD B5DF B5E1 B5E3 B5E5 B5E7 B5E9 B5EB B5ED 

F r B TOP BGDD BBDF BGE1 BGE3 BBE5 B6E7 B6E9 B6EB B6ED 

io^ferIop -- - - - - MMiiliOi OMlElEMMB 

F r B TOP '~ B7E8 B7EA B7EC B7EE B7F0 B7F2 B7F4 B7PG 

« 8 lOmR-S-- - R7Rl7F3l7F5l7F7l7F9l7FBl7FDl7Fr 

FOR top B8F3 B8F5 B8F7 B8F9 B8FB B8FD B8FF 

"lO^R-yOR-'- . . . b!f1187e"b 1 01191219 irB 9011908" 

f c b top ZZZIZZZMMMOMOM1M 

轉 10 'BUFFER"TQP~ - - - BA07 BA09 BABB BA8D BA8F BA11 

F C B TOP BB09 BB0B BB0D BB0F BBU_ 

m 'buffer'top . . . 

f c b top 

_^ 12 BUFFER TOP _BC1D BC1F BC21 坚 

p q g iqp 

m _ BUFFER TOP ___ BD28 BD2A BD 2C, 

HU FCl^OP BE2A.BE2C ； 

_ BUFFER TOP ___ BE33 B P 3 - 5 - 

F C B TOP ___ 旺 3 丄 

1115 BUFFER TOP BF3E 


Aug 19, 1983 Version 
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データの入出力はファイルバッファを介して行なわれると書きましたが、実際に I / O バッ 
ファを使うのは、ディスクの入出力と RS -232 C の入力の場合だけです。ディスク以外の出 
力はバッファを用いずに行なわれます。カセットからの入力は F 0 D 3 H 〜 F 152 H のカセット 
入カバッファを用い、キーボードからの入力は EFD 9 H 〜 EFF 8 H のキー入カバッファを用 
いています。 

では実際にファイルバッファにどのように書き込まれていくか、見てみましよう。2ドラ 
イブ 、 How many files = 2,使用するファイル番号=#1とします。このとき刖ページの表 

より FCB : B 009 H ~ B 011 H ， I / O バッファ： B 012 H ~ B 111 H となります。 

リスト 4-3 


FILE” for output astfl 


open 

Ok 

mon 


h 〕 db09cL b 0a5 
B09D I0| [30(^30 

h 〕 db0a6 
B0A6 00 00 00 
h〕 A b 

Ok 


先頭クラスタ# (ディスケットによって異なります o ) 

ーデ ー タボインタ 

(まだ何も書かれていない 


デバイス# (ドライブ1 ) 


; f —— 


[ 


2 00 


属性な 


バッファ長=256 

00 00 00 00 00 00 00 00 00 00 00 00 00 

I/O バッファ はすべて00 


次に データを 書き込みます。 

リスト 4-4 


print tf 1, 

Ok 

mon 


ABCDEF ，， 


h 〕 db09d,b0a5 
B09D 02 30 30 
h 〕 db0a6 
B0A6 
h〕 A b 
Ok 


4142 43 

ABC 

—►レコード 


44 

D 


データポインタ （6 文字書き込んだ） 

まだ CR が現れない 


01 00 00 06 08 


45 

E 




46 00 00 00 00 00 00 00 

F 


00 00 0 « 


リスト 4-5 


print 林 1, 

Ok 

mon 


XYZ 


h〕db 09d, b 0a5; 
B09D 02 30 
h 〕 db0a6 
B0A6 
h〕 A b 
Ok 


クラスタ 117 
セクタ 1 


I 現在の I / O バッファがクラスタ117，セクタ】 
I に書き込まれるデータであることを示す 


30 

01| 

00 00 


08 |01)- 

1 


41 

42 

43 

44 

45 

46 

58 

59 

5A 

0D 

0A 

A 

B 

C 

D 

E 

F 

X 

Y 

Z 

CR 

LF 

◄ - 



レ 

u — 

ド、 




- ► 

-> 



00 00 00 00 


♦レコード 
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長い文字列を書き込みます。 

リスト 4-6 


print «1, s tr ing$ (250, ”®”） 

〇 k ベ ここでディスクをアクセスしました0 

mon バッファが一杯になったため、ディスクに寄き込んで 

次のセク タのデータをバッファ している。 

h 〕 db09d, b0a5 i 

B09D 02 30 30 [02| 00 00 107] 08 01 

h 〕 db0a6 i 

B0A6 40 40 40 40 40 0D 0A 00 00 00 00 00 00 00 00 00 
h) A b @ @ @ @ @ CR LF 

Ok レコード < -- ► レコード 


CLOSE します。 

リスト 4-7 


close 
Ok 一 、 
mon 


スクへのアクセス 


CLOSE されていることを示します 


h 〕 db09d, b0a5 _ 

B09D [00] 30 30 02 00 00 07 [|0j 01 
h 〕 db0a6 

B0A6 00 00 00 00 00 00 00 00 00 00 


00 00 00 00 00 00 


h〕 A b 
Ok 


I/O バッファ はすべて 00 
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ABCDEFXYZ .. @@@@@ 

^@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 
@@@@&&@@@ & @@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 


@@@@@... 


今の例ではクラスタ 117 に書き込みました。クラスタ117は5インチ両面の場合はトラック 
29(1 DH )、 サーフェス0、セクタ9〜16ですからモニタのコマンドで見てみます。 

リスト 4-8 


n 

〇 

m 


00 0000000 
44 4444444 


0 0 
4 4 


00 000000000000 


44 444444444 


0 0 0 0 0 
4 4 4 4 4 


0 0 
4 4 


0000000000000000 

0000000000000000 


4 4 


0 0 0 0 
4 4 4 4 


0 0 0 0 0 0 0 


4 4 4 


0 0 
4 4 


4 4 


0 

4 


0 0 0 0 0 
4 4 4 4 4 


0 0 0 0 0 0 
0 0 0 0 0 0 


0 0 0 0 0 


0 0 


0 

0 


0 0 


00000000000 
0 0 0 0 0 0 


0 0 0 0 0 


00 0000000 
44 4444444 

00 0000000 
44 4444444 


0 0 0 
4 4 4 


0 0 
4 4 


0 0 0 0 
4 4 4 4 


4 4 4 4 4 


00000000000 
0 0 0 0 0 0 


0 0 0 0 0 0 
0 0 0 0 0 0 


0 0 0 0 0 


0 0 0 0 0 


0 0 


0 

0 


0 0 


A0 00000000000000 
04 44444444444444 

D 0 0 0 

0 4 4 4 


0 0 0 0 0 0 0 0 0 0 


4 4 4 4 


0 


0 

4 


\0 0000000 
54 4444444 

9 0 0 0 
5 4 4 4 


4 4 4 4 4 


0 0 
4 4 


0 0 0 0 0 0 0 0 


4 4 4 


0 0 
4 4 


4 4 4 


0 0 
4 4 

0 0 0 0 0 
4 4 4 4 4 


0 0 
4 4 


0 0 
4 4 


2 

0 


1J 

0 80 0 0000000000000 
t54 44444444444444 


c 


e 6 0 0 0 

s 4 4 4 4 


0 0 
4 4 


0 0 0 
4 4 4 


050 0000000 
044 4444444 

640 0 000000 
C44 4444444 


0 0 0 
4 4 4 


0 0 0 


0 0 0 0 0 
0 0^00 

0 0 0 0 0 
0 0 0 0 0 

0 0 0 0 0 
0 0 0 0 0 

0 0 0 0 0 
0 0 0 0 0 

0 0 0 0 0 
0 0 0 0 0 

0 0 0 0 0 
0 0 0 0 0 

0 0 0 0 0 
0 0 0 0 0 

A 000000000000000 
1000000000000000 


0 0 0 0 0 
0 0 0 0 0 


00000000000 
0 0 0 0 0 0 


0 0 0 0 0 


00000000000 
0 0 0 0 0 0 


0 0 0 0 0 


00000000000 
0 0 0 0 0 0 


0 0 0 0 0 


OA 0000000000 
t 00000000 


0 0 0 


0 0 0 0 
4 4 4 4 


c 


eD 000000000000000 
s 0000000000000000 


0 0 0 0 00000000000000000 
4444444 04000000000000000 


0 0 0 
4 4 4 


0 0 0 0 e 00000000000 

4 4 4 4 c 400000 


0 0 0 0 0 


a 


u 


3 

4 


0 0 
4 4 


a 


0 0 0 0 0 0 0 0 
4 4 4 4 


000000000 f 00000000000 
444444444 r 400000 


0 0 0 0 0 


00000000 


4 4 4 4 


0 

4 


0 0 


,s 2 0 0 0 

c *4 4 4 4 

,c 

10 0 0000000 
44 4 4444444 

lk 

d c 0 0 0 

A a 0 12 

)r 0 0 
h T 0 0 


4 4 4 


0 0 
4 4 


2 u 

0000 ,S00 
4 4 4 4 c » 4 0 

， c 

0 0 0 0 0 


000000000 
0 0 0 0 


0 0 0 0 0 


0 0 0 0 0 
0 0 0 0 0 

0 0 0 0 0 
0 0 0 0 0 

0 0 0 0 0 
0 0 0 0 0 


0 0 0 
4 4 4 


4 4 0 

1L 


00000000000000 

00000000000000 


000000000 


k 


0 

8 


3456789 ab 
0 000000000 
0 0 0 0 0 0 0 0 0 0 


0 d 
F A 


0 0 0 
c D E 

0000) r00 
0000hT00 


c 0 0 0 0 0 0 

a 0 1 2 3 4 5 


00000000 


6789ABCD 


0 0 0 0 0b 

B c D E F A 


000000000000001 
00000000000000 hM 
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4-4 キュー 


前節で、キー人力とカセット入力では専用のバッファを使うと述べましたが、このバッファ 
はキューといわれるものの仲間です。これは最初に入れたデータを最初にとり出すもので、 
FIFO(First In First Out ) とも呼ばれます。 

下図のようなキューがあるとします。データとして、 A ， B ， C , D が入っています。 



図 4-4- A キューの原理 （ 1 ) 

データ E ， F , G を入れます。 



図 4-4- B キューの原理 （2) 

データ A ， B を取り出します。 



図 4-4- C キューの原理 （3) 

ここでデータ H を入れるとこのようになります。 



図 4-4- D キューの原理 （4) 

データ C ， D をとり出し、データ I ， J ， K を入れます。 



図4 - 4 - E キューの原理 （ 5 ) 

このようにしてデータの出し人れが行なわれますが、 コン ピュータがこの動作を行なうた 
めにはいくつかの作業領域が必要です。 

N 88 - BASIC では作業領域として、次のものを持っています。 

• 空いている部分の最後（データの先頭 -1) の位置 
• データの最後（空き部分の先頭-1 ) の位置 
• キューのアドレス 
• キューの長さ 

これらはキューテーブルとしてひとまとめにして格納されています。キューテーブルは6 
バイトで、次のようになっています。 
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キューテーブル先頭 

+1 

+ 2 

+ 3 

+ 4, +5 

キューアドレス 

1 __ 

キュー •： データ 

t t 

ゲットオフセット プットオフセット 

< - キューの: tR ； さ+1- > 

図 4-4 -F キューテーブル 

キューテーブルには# 0と#1の2つがあり、#0はキー入力用に、#1はカセット入力 
と RS 232 C 入力用に使われています。キューテーブル# 0のアドレスは （ E 6 CB ， CCH ) に入 
っています。普通は EFCDH です。#1は# 0のすぐ後ろにあります。 


プット オフセット 

データの最後 

(キューの先頭を0とした位置） 

ゲット オフセット 

空いている部分の最後 
(キューの先頭を0とした位置） 

ノベック キャラクタ 

キューから文字を取り出すルーチ 
ンで、ここにデータ （#0) があ 
るとその文字をキューからのデ ー 

夕とする 

キュー長 

キューの長さ 

2 n -K 1^ n ^8 

キユーアドレス 

キューのアドレス 


EFCD 

EFD 3 

EFD 9 


キューアーノル 

#0 


キューテ ー フル 

#1 

キー入力用 
キュー" 


(E6CB,CC) 



EFD 9- EFF 8 

F 0 D 3- F 152 


図 4-4 -G キューの割り当て 


このキューを利用すると、ファンクションキーのようなことができます。詳しくは「第5 
章キー入力」を見て下さい。 
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第 5 章キー入力 


N 『 BASIC のキー入力は次のような流れで行なわれます。 


ハ—ドウエア 


メモリ 



INPUT 文 
INKEYS 関数 
INPUTS 関数 
など 


図5 -A キー入力の流れ 

これらについて説明します。 



5-1 キーボード 

キーボードは CPU のバスに 
につながっていて IN 命令 （ BA ¬ 
SIC では INPra 数） で読み込む 
ことができます。各キーは図 

5-1- A のようにマトリツ 
クス状に配列されています。 
横の行にそれぞれ I / O アドレ 
スが割り当てられていて、そ 
のアドレスのポートを読むこ 
とにより、その行の8つのキ 
一 状態を知ることができます。 

キーが押されていると、読 
んだデータの対応するビット 
が0になります。押されてい 
ないキーのビットは]になつ 
ています。 


図 5-1- A キーマトリックス 
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たとえばキーが押された時を考えてみましょう。他のキーは押されていないとします。 
冗キーはポート 02 H につながっています。したがって、0キーの状態を知るには、ポート 
02 H の値を読みます。区]キーのビットはビット1に位置付けられています。ですから、ポー 
卜 02 H は2進で1111.1101、つまり、 FDH になっているはずです。 

では、実際にやってみましょう。次のプログラムを入力して下さい。 

10 CLS 

20 し〇 CATE 0，0 

30 PRINT HEX $( INP (02)) 

40 GOTO 20 

これはポート 02 H の値を画面の左上に表示し続けるものです。 run させると FF とぶポされ 


ています。 

ここで ® キーを押してみて下さい。表示が FD に変わりました。離すと、 FF にもどります。 
押したり、離したりしてみて下さい。押している間だけ FD になることが、おわかりになる 
と思います。 

では今度は、画]キーを押して下さい。 FB が表示されましたね。回キーは同じポート 02 H 
でもビット2に位置付けられています。ですから、回キーだけを押すと、111110 11 =FBH 
になるわけです。 

さて、2つのキーを同時に押したらどうなるでしようか。区]キーと回キーを同時に押すと、 
表示は F 5 となります。 

A キーはビット1に、回キーはビット3に位置付けられていますから、両方押すと 
111101 01 B で F 5 H となるわけです。 


1つ、2つときましたから今度は3つです。3つになったからといって、基本的な考え方 
は同じです。 [ Al キー、キー、回キーを同時に押すと、ポート 02 H の値は F 1 H になります。 
ところが、です。 uJ キーと [ J ] キーと [ E キーを同時に押して下さい、もちろん、 [ E キーと 
JJ キーはポート 03 H につながっていますから、ポート 03 H を読まなければ、押されたかどう 
かはわかりません。それはともかく、表示を見て下さい。 F 9 になっています。ポート 02 H 
のキーの中では、退]キーしか押していないのですから FB になるはずです。 

F 9 ということは2進で11111001ですから、 ® キーも押されたことになっているわけです。 
でも実際には押していません。これはなぜでしょうか。もう一度キーの配列を見てみましょ 


つ 


〇 


ポート 


ポート 



§15 - 1 -B キ ー の配列例 
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すると、 [ AJ キ—というのは^!キー、 LlJ キー、 LiJ キ—とともに四角形を形成しています。 
このような時は、4つのキーのうち3つを押すと、残りの1つも押されたことになってしま 

います。別の四角形を形成しているキー、たとえば、0，闷，回，回のキーでもためして 
みて下さい。 

これは、電気的にみると次のような理由によります。（この図の流れの向きはわかりやす 
くするために実際とは逆になっています。電子の流れと考えるとよいかもしれません。） 


ビット1 ビット2 



ポート 02 H をたどっていった場合、^|， [XI， [E のキーが押されていると、迫_1キーを通し 
てビット2へ信号が行くのと同時に、回キーから [ J ] キーーキーを通してビット1へも信 
号が行きます。したがって、あたかも区]キーを押しているように見えるわけです。なお、 
CTRLl , ICAPSl ISHIFTliGRPli ] の 5 っのキーは、他のキーと同時に押すことを 
前提としていますので、ダイオードを使ってこのようなことが起こりにくいようにしてあり 
ます。また、押したままで使う ICAP 引 キーと同じビット（ビット 7) のキーにもダイオードが 
使ってあり、たとえば | CAP 引 を押したままで MON と素早く打ち込んでも正常に入力される 
ようになっています。 

このように、同時に3 つ 以上のキーを押すと、押していない キーが 押されたかのような動 
きをすることがあるわけですが、この、ポートを読んで押されたキーを判断するという方法 
は、同時に複数のキーの状態を認識する方法として、ゲームなどでは、よく用いられていま 
す0 
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5-2 キース キャン 

PC - 8801 mk |] はソフトウェアによってキースキャンを行なっています。前述の方法によっ 
て、すべてのキーボード用のポートを読み、その値によってキーが押されたかどうかを判断 
しているわけです。 

N 『 BASIC ではキーの先行入力が可能です。これは割り込みを使用して実現しています。 
PC _8801 mk II には、 VRTC 割り込みというものがあり（詳細は割り込みの章を見てくださ 
い。）10数 ms ごとに割り込みがかかっています。この割り込みルーチンでキーボードのスキ ャ 
ンをし、押されたキーを判別し、そのアスキーコードをキー バッファに 入れます。この 
VRTC 害 ij り込みは、通常は いつでも かかるようになっていますから、 いつ キーを押しても 
そのキーは入力されます。 

ところで、ワークエリアを操作すると、キースキャンを行なわなくさせることができます。 
これはプログラム中で、一時的にキー入力を受け付けたくない場合とか、キースキャンには 
結構時間がかかりますから、キー入力は必要ないが高速で計算したいというときに使えます。 
(数％速くなります）操作するワークエリアは E 6 CDH です。 

POKE & HE 6 CD , 255 . キースキャンを止める。 

POKE & HE 6 CD ， 0 . キースキャンを再開する。 

ここで注意しなければならないのは、キースキャンを止める必要がなくなったら、必ずキー 
スキャンを再開しておくことです。これがないと、いっさいキー入力を受けつけなくなりま 
すので、何もできません。もし、誤って再開命令を入れ忘れた時には、ストップリセット 
( STOP キーを押しながらリセットボタンを押す）を行なって下さい。 

5-3 キー バッファ 

キーボードがスキャンされ、押されたキーがあると、そのキーの データ （アスキーコード） 
がこのキーバッファに入れられます 。 BASIC のキー入力文はすべてこのバッファから文字 
をとり出します。 

キー入カバッファは2 - 3で述べたようにキュー形式をとっています。キュー長は31文字 
で、このため31文字までの先行入力ができます。 

キューアドレス： EFD 9 〜 EFF 8 H 
キューテ ー ブル 

プットオフセット ： EFCDH 
ゲットオフセット ： EFCEH 
バックキャラクタ ： FFCFH 
キュー長 : EFC 0 H 

キュー■アドレス ： EFC 1 H , EFD 2 H 

これを利用して、プログラム中で、ある文字列をあたかもキーボードから打ったような動 
作をさせることができます。 
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① 文字列の長さが 31 文字以内のとき。 

• キューの先頭 ( EFD 9 H 番地）から文字列を書き込みます。 

•プツトオフセツト （ EFCDH 番地）に文字列の長さ-1を入れます。 

• ゲツトオフセツト （ EFCEH 番地）に1 FH つまり31を人れます。 

こうすると、キー入力待ちになった時に、その文字列をキーボードから打ち込んだのと似 

た動作をします。 

実際にやってみましょう。 

リスト 5-1 

10 A$ = ，，丁 echKnow 8800mkl I SYSTEM SOFT” 

20 FOR 1=1 TO し EN(A$) 

30 POKE &HEFD8 + I,ASC(MID$(A$, I, 1)) 

40 NEXT 

50 POKE &HEFCD, し EN(A$) - 1 

60 POKE &HEFCE,31 

Ok 

run 

Ok 

TechKnow 8800mk11 SYSTEM SOFT 

ところで、このようにソフト的にファンクションキーの動作をさせるのは、もっと簡単に 
できます。「5 - 6 - 4ソフトファンクションキー」を見て下さい。 

② 文字列の長さが32文字以上のとき。 

• メモリ上の適当な場所に文字列を書き込みます。 

•プツトオフセツトに文字列の長さ-1を入れます。 

•キュー長 （ EFC 0 H 番地）に、2 1を満たし、文字列の長さよりも大きな値を入れます。 

例えば40字の文字列の場合は2 - 1=63です。 

• キュー長と同じものをゲツトオフセツトにも入れます。 

• キューアドレス （ EFD 1 ， 2 H 番地）に文字列の先頭アドレスを入れます。 

っまりキューの位置を移動するわけですが、動かしたままではいけませんので、あとで元 
に戻してやる必要があります。これは、 35 D 9 H 番地を CALL することによって簡単に行な 
うことができます。 

キューの移動ということで面白いことをやってみましょう。 

リスト 5-2 

poke &Hefdl,&Hc8 : poke &Hefd2,&Hf3 : console 1,25 

を実行します。キューを画面上に移したわけです。何かキーから入力すると、画面の左上に 
同じものが現われます。 コントロール キーや力ーソル移動キーを押すと対応するキヤラクタ 
が現われます。キューを元にもどすには STOP キーを押します。 
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5-4 キー バッファの クリア 

N 8 «- BASIC はキーの先行入力が可能です。これはたいへん重宝な機能なのですが、反面 
困ることがあります。知らず知らずのうち0キーを押してしまって、あとであわてた経験は 
どなたでもおありでしょう。これがダイレクトモードであれば STOP キーを押せば良いので 
すが、プログラム実行中だとそういうわけにも行きません。あらかじめ適所適所でキーバッ 
ファをクリアしてやらなければなりません。 

キーバッファのクリアを BASIC で行なうとこうなります。 

* KEY . CLEAR : IF INKEY $<>，，，’ THEN * KEY . CLEAR 

または、 

WHILE INKEY $<> ”” : WEND 

この機能を ROM 内のルーチンを CALL することにより簡単に、かつ素早く行なうことも 
できます。アドレスは 35 D 9 H ですから 

DEF USR = & H 35 D 9 : A = USR ( 0 ) 

または 

KEU . CLEAR = & H 35 D 9 : CALL KEY . CLEAR 

とします。 

5-5 キー入カステ ー トメント活用テクニック 
5-5-1 INPUT 文と疑問符 

N - BASIC 文では、入力待ちになる時、プロンプト文に続けて’？，が出力されますが、 
n « 8 - basic では、出力させなくすることもできるようになっています。 INPUT 文を入力 
する際、プロンプト文の後に”，”を入れて下さい。 

これは、プログラムを作る上でも便利なもので、たとえば、16進数を入力させる場合、次 
のようなプログラムにすることもできます。 

リスト 5-3 

10 INPUT ” Start Address .. &H” ， SA$ 

20 S. ADRS=VAL (”&H”+SA$) 

Ok 

run 

Start Address •• &H_ 


run 

Start Address •• &H44a5 

Ok 
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5-5-2 INPUT WAIT 文と待ち時間 

INPUT WAIT 文は待ち時間だけキーボードからの入力を待つ INPUT 文です。普通の IN - 
PUT 文は、この WAIT が無限大のものと思えば良いでしょう。 

この待ち時間は 、 （INPUT WAIT の後で指定した値） X 0. 1秒ということになっています 
が、どのくらいの大きさまで使えるのでしょうか？実際にやってみると、32768以上で Over 
flow になってしまいますね。 

つまり、待ち時間というのは、整数型の数値または変数でなければならないわけで、もし 
それ以外 （10.3 など）であれば、整数型に変換され、それが待ち時間となります。 

となると、最大待ち時間は3276.7秒ということになりますが、本当にそうでしょうか。実 
は、この値には、負の数も使えるのです。（整数型というのは-32768 〜 32767というのを思い 
出して下さい）試しに 、 INPUT WAIT -1， A とすると、6553. 5秒間待つことになります。 

なお、待ち時間を 0(0.4 などでも同様）にすると 、 Illegal function call となりますので 
注意して下さい。 

また、この INPUT WAIT 文は、キー入力がないということを前提とすると、 一 種の夕 
イマーとして使うことができます。これは一秒ごとにカウントするプログラムです。 

リスト 5-4 

100 INPUT WAIT 10 ， ”，，， 

110 PRINT I, 

120 1 = 1+1 
130 GOTO 100 

5-5-3 LINE INPUT 文と数値の代入 

INPUT 文では、入力するデータの個数や型が違っていると” ？ Redo from Start ” などと 
いうメッセージが出力され、時には画面のレイアウトがこわされたりすることがあります。 
これをなんとかしようということで登場して来るのが、この LINE INPUT 文です。 

次の例は、名前と年令を，，，’’で区切って人力させるサブルーチンですが、人カミスがある 
場合は、画面をこわすことなく再入力させることができます。 

リスト 5-5 

100 水 D.INPUT 

110 LOCATE 0,10 : LINE INPUT ” ナマエ，ネンレイ？ ”， LNS 
120 SP=INSTR(LNS ，”，”） ： IF SP<2 THEN *BAD 
130 NM$=LEFT$ (LN$,SP-1) 

140 AGE=VAL(MID$(LMS,SP+1)) 

150 IF NMS <>”，， AND AGE>0 THEN 木 OK 

160 * 

170 木 BAD 

180 LOCATE 0,10 : PRINT ”... マチカ '' イ • . • ” ； STRINGS (9, 9); 

190 BEEP 

200 GOTO *D.INPUT 

210 * 

220 ホ OK 

230 PRINT ”ナ マエ • . • ’’ ； NM$ 

240 PRINT ” ネンレイ ...AGE 
250 END 

INPUT NM $, AGE と書くよりもかなり複雑なものになっていますが、不特定多数の人 
に使われるプログラム（ビジネス.アプリケーシヨン）などでは、これくらい注意を払つたフ 
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ロ グラムにしたいものです。 

5-5-4 INP 関数と WAIT 文 

INP 関数はキー入力用のものではありませんが、 5-1 で述べた方法を用いることにより、 
入カポートを通して、キーボードの状態を知ることができます。 

INP 関数は、機械語の IN 命令と同じものです。 

BASIC アセンブラ 

A = INP ( PORT ) = IN A ，( PORT ) 

この関数を使うと、 INKEY $ などに比べて高速の キー センスが可能ですし、2つ以上の 
キー 状態がわかりますから、 ゲームな どにはもってこいです。たとえば、 カーソル キーを 半 IJ 
別する プログラム は次のようになります。 

リスト 5-6 
100 1 

110 Senee Cursor keys 
120 • 

130 水し 0 OP 

140 PT8=N0T INP (8) 

150 PTA=NOT INPC10) 


160 

IF 

PTA 

AND 

2 

THEN 

PRINT 11 DOWN" 

170 

IF 

PTA 

AND 

4 

THEN 

PRINT ” LEFT ，， 

180 

IF 

PT8 

AND 

4 

THEN 

PRINT ” RIGHT” 

190 

IF 

PT8 

AND 

2 

THEN 

PRINT ，， UP ，， 


200 GOTO 水 LOOP 

WAIT 文もポートの状態を見るものですから、キー人力に使えます。 WAIT 文はちょっと 

わかりにくいのですが、 INP 関数を使って WAIT PORT , VAL 1, VAL 2 を書くと次の 
ようになります。 

WHILE (( INP ( PORT ) XOR VAL 2 ) AND VA し 1)=0 : WEND 

ですから WAI 丁文を使ったものは必ず INP 関数で書きなおすことができるわけで、逆にい 
うと WAIT 文はあまり使う必要がないことになります。 WAIT 文の特長としては、高速で判 
別できる、人力待ちの時にキー割り込みがきかない （ STOP できない）、ということがありま 

す。 

なお、 INP , WAIT を使った場合でも、押されたキーのデータは、キーバッファに入って 
しまいます。これをクリアする方法は、 5-4 を見て下さい。 

5-5-5 INKEY $ でカーソル表示 

INKEY $ 関数で キーセンスを 行なう場合、通常は 力ーソルが 表示されませんが、表示さ 
せた方がよい場合があります。その方法は次の通りです。 （ USR 関数で行なってもかまいま 
せん。） 


• 力ーソル ON 

CSRON = & H 4290 : CALL CSRON 

•カーソノレ OFF 

CSROF = & H 428 B : CALL CSRPF 

それでは、これを使った例を見てみましょう。 
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リスト 5-7 
100 ’ 

110 ' INKEYS with cursor 
120 • 

130 木 LOOP 

140 GOSUB 木 C. ON 

150 A$=INKEY$ : IF A3 = ，，” THEN 150 
160 PRINT A$, 

170 GOTO 木 LOOP 
180 END 
190 f 

200 ’ Cursor ON 
210 木 C. ON 

220 DEF USR=&H 4290 : A=USR (0) 

230 RETURN 

240 1 Cursor OFF 

250 ホ C. OFF 

260 DEF USR=&H428B : A=USR (0) 

270 RETURN 

なおこの方法は、 INP 関数、 WAIT 文などでも用いることができます。 


5-6 ファンクションキー 


5-6-1 ファンクションキーデータの格納アドレス 

ファンクションキーの内容は E 6 F 2 H 〜 E 791 H 番地に格納されています。 


F . 1 E 6 F 2 H - E 701 H 

F .2 E 702 H 〜 E 711 H 

F .3 E 712 H 〜 E 721 H 

F .4 E 722 H 〜 E 731 H 

F .5 E 732 H 〜 E 741 H 


F .6 

E 742 H 〜 E 751 H 

F .7 

E 752 H 〜 E 761 H 

F .8 

E 762 H - E 771 H 

F .9 

E 772 H 〜 E 781 H 

F .10 

E 782 H 〜 E 791 H 


各キーにっき16バイトが割り当てられていますが、ターミネータとして⑻が必要ですので、 


定義できるのは15文字までとなっています。 

ファンク シヨ ン キーを実現するアルゴリズムは簡単で、 ファンク シヨ ン キーが押されると、 
定義されている文字列をキューにほうり込むだけです。もしキューが一杯になったら残りの 


文字は無視されます。 


5-6-2 2つのファンクションキーをつなける 

さきほどターミネータとして⑻が必要だと述べましたが、これをなくしてしまうとどうな 
るでしよう。 

リスト 5-8 

key 1,” ABCDEFGHIJKLMNCT 
Ok 

key 2, 11 0 123456789" 

Ok 

poke &He 701 f as c ("®”） 
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ここで|卜1|を押します： > 

リスト 5-9 

ABCDEFGHIJKLMNO© 0123456789 

HI とがつながってしまいました。こうすることによって16文字以上の定義もできま 
す。しかしキューの長さが31文字ですので、32文字以上の文字列を定義しても無意味です。 

5-6-3 ファンクションキーの初期化 

ファンク ショ ン キーの初期データは N««-BASIC ROM 内の 01 B 0 H 〜 024 FH に入っていま 
す。 電源 ON (リセット ） の時にこのデータが E 6 F 2 H 〜 E 791 H に転送されてく るわけです。 従っ 
て ファンク ショ ン キーを初めの状態に戻すには、もう一度データを転送してやればよい わけ 
です。 これを BASIC で 行なうと次のようにな ります。 

リスト 5-10 
100 * 

110 ’ Function keys intialize sub. 

120 # 

130 >KF. INIT 

140 FOR 1 = 0 TO159 

150 POKE &HE6F2 +1,PEEK (&H1B0+1) 

160 NEXT 
170 RETURN 

これはサブルーチンになっていて、必要な所に GOSUB * F . INT を入れておくとファン 
クションキーが初期化されます。しかし表示は変わりませんので、シフトキーを押すか、 
console , ,1を実行して下さい 0 

次にこれを機械語で行なった例を示します。 

リスト 5-11 


100 * 

110 ’ Function Key INIT Command ( M. し Version ) 

120 f 

130 FOR I=&HF260 TO &HF270 

140 READ D$ : POKE I,VAL (”&H”+D$) 

150 NEXT I 

160 POKE &HEEA8,&H60 : POKE &HEEA9,&HF2 

170 DATA E5,21,B0,01,11,F2,E6,01,A0,00,ED,B0,CD,79,3F,El,C9 

このルーチンを実行すると、新しい コマンド ’ POLL ， ができ、他のステ ー トメントと同 
じように使えます。プログラム上の必要な箇所に POLL と入れると、そこでファンクシヨ 
ン キーが初期化されます。 

5 - 6-4 ソフトファンクシヨンキー 

ソフトフ ァンクシヨンキーとは その名の通りソフト ウエアで フ ァンクシヨンキーの 役割を 
させようというものです。その方法は次の通りです。 

① メモリ中に文字列を用意します。文字列の最後は 00 H で終わっていなければなりません。 

② E 6 C D H 番地に 00 H でない値を書き込みます。 

③ F 003，4 H 番地に文字列の先頭アドレスを下位、上位の順に入れます。 
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A$= This is a pen •” 

P=VARPTR(AS) : KEY OFF 
POKE &HE6CD,255 

POKE &HF003,PEEK (P+1) : POKE &HF004,PEEK CP+2) 
POKE &HE6CE，255 
POKE &HF00C,0 
POEK &HEGCD,0 


run 

Ok 

This is a pen. 

このうち、肝心なのは 40 行と 50 行です。30行はキー入力を止めるためで、 7 〇行は再開する 
ためです。そうしないと実行中にキーを押すとうまく動かないことがあるからです。60行は、 
割込みを起こさないためです。ここに割込みが定義されていて、 ON 状態であるキー番号一 
1を POKE すると、そのキーの割込みが起こってしまい、フアンクシヨンキーの働きをし 
ません。しかし KEY 〇 FF がしてあれは60行はなくてもかまいません。 

この方法を使うと、プログラムを PRINT 文で書いた後、カーソルをその行にもって行き、 
0を押したことにすれば、自動的にプログラムを増やすことが出来ます。 DATA 文の自動 
作成などに有効です。 


④ E 5 CEH 番地に⑻ H でない値を書き込みます。 

⑤ F 00 CH 番地にファンクシヨンキー割込みを定義していないファンクシヨンキー番号-1 
を書き込みます。 

⑥ E 6 CDH 番地に 00 H を書き込みます。 

例をあげてみましよう。 

リスト 5-12 


0000000k 

12345670 
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5-7 比較表 

★文字列の入力方法の比較表 




INPUT 

INPUT WAIT 

LINE INPUT 

LINE INPUT 
WAIT 

INPUT $( X ) 

INKEYS 


文 

文 

文 

文 

関数 

関数 

入 

力 

表 

示 

フロンフト文 

可能 

可能 

可能 

可能 

不可能 

! 不可能 

フロンフト 
マーク？ 

可能 

可能 



HQ|H 


カーソル 表示 


mm 

m 







mm 

m 



入力待ち 

: 

待つ 

指定した時 
間だけ待つ 

待つ 

指定した時 
間だけ待つ 

待つ 

待たない 

—C 

1 S 

夕 

入 

力 

,の入力 

ダブルクオ ー 
卜で囲めば可 

ダブルクオ ー 
卜で囲めば可 

可能 

可能 

可能 

可能 

’’の入力 

文字列の最初 
でなければ可 

文字列の最初 
でなければ可 

可能 

可能 

可能 

可能 

コン ト ロールコード 
カーソル キ ー (7) 入力 

不可 1 

不可 

小口】 

不可 

可能 

可能 

複数の変数 
への 入力 

可能 

可能 

不可 

不可 

不可 

不可 

入力文字数 

254 文字以内 

254 文字以内 

254 文字以内 

254 文字以内 

指定した文字数 
(255 文字以内) 

1 文字 

入力終了 

0 キー 

a キー 

a キー 

0 キー 

自動 


入力文字な 
しで 3 キー 

ヌルストリング 

ヌルストリング 

ヌルストリング 

ヌルストリング 

CHRS (13) 

CHR$ (13) 

|STOP| 

キ 

1 

巳 REAK 表示 

あり 

あり 

あり 

あ U 

なし 

あり*2 

CONT に 
よる 再開 ( 

可能 

可能 

可能 

可能 ! 

不可 

可能* 2 


*1 :通常はカーソルは表忝されませんが、表ボさせることも可能です。本文を兄て下さい。 
* 2 : INKEY $がブレークされたり CONT されたりするわけではありません。 

INKEY $ A 体は STOP キーを CHR $( 3 ) として受けつけることも可能です。 


★キーセンス比較表 



INPUTS (1) 

INKEYS 

INP ( X ) 

WAIT 

入力待ち 

待つ , 

待たない 

待たない 

待つ 

STOP キー 

中断 （ CONT 不可） 

中断* 

中断$ 

中断しない 

複数キーの同時入力 1 

小内 

不可 

可能 

不可な場合もある 

入力文字の判断 

簡単 

簡単 

複雑 

複雑 

カーソル 表示 

表示する 

表示させることも可 

表示させることも可 

表示させることも可 

キー割り込み 

きかない 

きく* 

ぎく* 

きかない 


* 人力待ちがないため INKEY $， INP ( X ) 商体は STOP キーやキー割り込みとは関係ありません。 
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第 6 章テキスト画面 


丁キス ト画面は下図のように テキス ト VRAM、DMA コン ト ローラ、 CRT コン ト ローラ 
を通して CRT に表示されます。 


CPU 

4 _^ 

テキスト 


DMA 

V 

CRT 




VRAM 

r 

コントローラ 1 

- > 

コントローラ 

• 

1 

CRT 







グラフィック画面 

図6 - A テキスト画面の表示の流れ 

6-1 テキスト VRAM 

6-1-1 テキスト VRAM と画面 

CRT の画面とテキス ト VRAM との対応を図6 - 1 - A 、 図 6-1- B に示します。テキス ト 
VRAM は、メインメモリ上の F 3 C 8 H から FF 7 FH までの約 3 K バイ トに 位置していて、表示 
エリアとアトリビュー ト エリアから成り立っています。表示エリアには画面に表示するデー 
夕が格納されていて、画面上の1文字と1対1に対応しています。 


0 


1•••(桁数)…79 


80 


0 


行 


数 


19 

20 

24 


F 3 C 8 
F 4 4 0 
F 4 B 8 


FC B 0 
FD 2 8 

F F 0 8 


F3C9.F 416 

F 4 41 .F 4 8 E 

F 4 B 9 .F 5 0 6 


表示エリア 


FCB 1 .FC F E 

FD2 9 .FD 7 6 

F F 0 9 .F F 5 6 


F 417 
F 4 8 F 
F 5 0 7 


FC F F 
FD 7 7 

FF 5 7 


F 418 
F 4 9 0 
F 5 0 8 


FD 0 0 
FD 7 8 

參 

FF 5 8 


F 419 .F 4 3 E 

F 4 91 .F 4 B 6 

F 5 0 9 .F52E 


アトリビュートエリア 


F D 01 .F D 2 6 

FD7 9 .FD9E 

F F 5 9 .F F 7 E 


F 4 3 F 
F 4 B 7 
F 5 2 F 


FD 2 7 
F D 9 F 

參 

F F 7 F 


図 6-1 -A 80桁モードの VRAM 
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0 1 •••(桁数)… 38 39 


図6 - 1 -B 40桁モードの VRAM 

40桁モードでは、表示エリアの RAM の偶数アドレスを使用します。また、20行モードで 
は、行数〇〜19までの位置にある R A M を使用します。 

アトリビュートエリアとは、表示画面の修飾（色、リバース、ブリンク等の指定）を行なう 
ためのデータエリアで、2バイトで1 つの アトリビュートを指定します。アトリビュートエ 
リアは各行にあり、行あたり40バイトですから、1行で最大20個までアトリビュートの指定 
ができます。アトリビュートの使い方については後述します。 

ヌルラインというのは画面がスクロールしたときに現われる新しい行をうめるデータです。 
たとえば POKE & HFF 89,64としてから ROLL UP キーを押すと、最下行の10桁目に@が 
現われます。 CLR キーを押すともとに戻ります。 

カーソル位置から VRAM のアドレスを求めるには次のようにします。 

BASIC による方法 

• 80桁モード 

DEF FNVRAM ( X ， Y ) = & HF 3 C 8 + 120 氺 Y + X 

• 40桁モード 

DEF FNVRAM ( X ， Y ) = & HF 3 C 8 + 120 氺 Y + 2 氺 X 

どちらも FNVRAM (桁，行）によって対応するアドレスが求められます。 

機械語による方法 

H レジスタに（桁+ 1)、 L レジスタに（行+1 ) を入れて、 429 DH 番地をコールすると、 
HL レジスタペアに VRAM のアドレスが得られます。 

たとえば、5桁 .20 行の場合は、 

LD HL , 1506 H 
CALL 429 DH 

とします。 

6-1-2 テキスト VRAM アドレスの移動 

VRAM の位置は、 N - BASIC では F 300 H 番地からに固定されていましたが、 N^BASIC 
では、ワークエリア中のポインタ （ E 6 C 4， C 5 H ) で与えられます。つまり、この値を変える 
ことにより、 VRAM の位置を別のところへ移すことができるわけです。 

それでは実際にやってみましょう。 



表示エリア 


F 7 F 
3 B 2 


F F F 


E 6 E 
3 B 2 


F F F 


F F F 


F F F 


F F F 


t C 4 


F F F 


A2A 
C 4 B 
3 4 4 
F F F 


C 4 B 


F F F 


亍 
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まず 3120 バイト分の RAM エリアを 確保します。 （ VRAM は 3( X )0 バイトなのですが、 ヌル 
ライン用に VRAM の後に120バイト必要です。） 

CLEAR , & HCF 00 

つぎにボインタを書き変えます。 

POKE & HE 6 C 5, &HCF : POKE & HE 6 C 4, 0 

これで移ったのですが、キーを押してもカーソルが動くだけで画面はもとのままですね。 
これは、 D,MA コントローラがまだ前のままの状態であるためです。これを再設定するには、 
WIDTH 文を実行します。（一応 CLR キーを押した後で行なって下さい。） 

これで必要な操作は終わりです。 

POKE & HCF 00, ASC (” A ”） 

を実行すると、左上に A という文字が出るはずです。これで VRAM は移動し、 CF ⑻ H 番地 
から DAB 7 H 番地を占めることになりました。 F 3 C 8 H 番地から後のもとの VRAM は使用さ 
れなくなっています。 

WIDTH 文ではなく 、 CMD TEXT ON または後で紹介する DMAC 再設定プログラム （6. 4 
DMA コントローラ）を使うと、画面をクリアせずに DMAC を再設定できます。これを利 
用すると複数のテキスト画面を持つことができます。次のプログラムは2枚の VRAM を使っ 
たデモプログラムです。（拡張命令を使っています。） 

リスト 6-1 

100 CLEAR,&HCF00 
110 WIDTH 80, 25 

120 ON STOP GOSUB >KSTOPP : STOP ON 
130 f 

140 FOR N=0 TO 26 

150 IF N MOD 2=1 THEN POKE &HE6C5,&HCF : POKE &HE6C4,0 

160 IF N MOD 2=0 THEN POKE &HE6C5,&HF3 : POKE &HE6C4,&HC8 

170 CLS 

180 FOR 1=0 TO 20 

190 LOCATE RND 木 70, RND>K22 

200 PRINT CHRS (N+&H41) 

210 NEXT 
220 CMD TEXT ON 
230 MEXT N 
240 f 

250 ホ ST 〇 PP 

260 POKE &HE6C5,&HF3 : POKE &HE6C4,&MC8 : WIDTH 80 
270 STOP OFF 
280 END 

なお、この実験を行なった後は 

POKE & HE 6 C 5, & HF 3 : POKE & HE 6 C 4, & HC 8 : WIDTH 80 

を実行して、 VRAM をもとの位置にもどしておいてください。 
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6-2 アトリビュートエリア 

PC -8801 mk II ではテキスト画面の制御に PC - 8001 (mkll ) と同じ " PD -3301 を使っていま 
す。これは、カラーやリバースなどの指定にアトリビュート（属性）方式を用いているもので 
す。この属性は、前に示したように VRAM 上にアトリビュートエリアとして置かれ、 
N 『 BASIC では次のような構成になっています。 N - BASIC と N ««- BASIC では多少違いがあ 
りますが、本質的には同じものです。 


アトリビュートエリアの先頭 
1つの属性は，2バイトで表現されている 


F 418 H F 419 H 


N 88 -BASIC 
(1 行目） 


▼ 属性コード 

この桁までを次の1バイトの属性 
コードに従った表示を行う 


F 43 EH F 43 FH 


桁数 

属性 


桁数 

属性 

^- 

— 



1行につき40バイト （20 組）確 
保されている 

従って，属性の変化は，20回 
まで許される 


図 6-2- A アトリビ ユー トエリ T ^ Nss - BASIC ) 


アトリビュートエリアの先頭 
1つの属性は，2バイトで表現されている 


N-BASIC 
(1 行目） 


F 350 H 

F 351 H 

F 352 H 

F 353 H 

F 376 H 

F 377 H 

桁数 

属性 

桁数 

属性 


桁数 

属性 


属性コード 

この桁から次の1バイトの属性 
コードに従って表示を行う 


1行につき40バイト （20 組）確 
保されている 

従って，属性の変化は，20回 
まで許される 


図 6-2- B アトリビュートエリア （ N - BASIC ) 


6-2-1 属性コ ー ド 

属性コードは1バイトよりなり、白黒モード、カラーモードのそれぞれの場合に ついて 次 
のような意味をもちます。 
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la ) 白黒モード （ CONSOLE ，，，〇) 


7 | 

6 


4 


2 

1 

msm 

u 「 aphic =1 

Character=Q 

〇 

アン ダー 

ライン 

ア ッハー 

50 I 

■ 

リバース 

ブリンク 

シークレット 


000 

ノーマル 

C 0 し〇 R 0 

001 

ンークレツト 

C 0 し OR 1 

010 

ブリンク 

CO し OR 2 

011 

シークレット 

CO し〇 R 3 

100 

リバース 

〇〇し OR 4 

101 

リバースシークレット 

CO し OR 5 

110 

リバースプリンク 

CO し OR 6 

111 

リバースシークレット 

CO し OR 7 


( b ) カラーモード （ CONSOLE ，，，1) 



■OH 





■■HI 


■ 

■ 

アン ダー 

ライン 

アッパー 

ライン 

■ 

■ 

ブリンク 



※カラーの時の LINE 文に対応 ( N - BASIC ) 个 

このビットカか1か2通りある 








■■■■ 




■ 

Graphic =1 

Character =0 

■ 

■ 

■ 

■ 



図 6-2- C 属性コード 


6-2-2 低解像度グラフィック 

属性コードの図表に Graphic というのがありますね。これは N - BASIC で使用している低 
解像度のグラフィックのことです。ハードウェアは同じなのですから N『B ASIC モードで 
も使用できます。実際にやってみましよう。 

リスト 6-2 

10 CONSOLE 0,25,0,0 : WIDTH 80,25 
20 FOR AD=0 TO 79 
30 POKE &HFDA0+AD,AD 
40 NEXT 

表示エリア（この例では FDAOH 〜 FDEFH 番地）のデータを上のように書き換えますと、 
画面の下のほうに 

Sh Sx Ex Et E リ … J K L M N 0 

と表示されます。ここでアトリビュートエリアの FDFOH ， FDF 1 H を50，80に書き換える 
と、いままで表示されていた文字が 
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アドレス FDAD FDA1 FDA2 . . . FDED FDEE FDEF 

図 6-2- D 低解像度グラフィック例 

上のような模様に変わります。表示エリアのデータとこのグラフイックパターンの関係は次 
のようになっています。例として、データが 34 H の場合をみてみます。 



図 6-2 -E 低解像度グラフィックのマッピング 
6-2-3 アトリビュート•セット 

アトリビュートのセットの中でも、文字の色付けは BASIC インタプリタで行なってくれ 
ます。ところがアンダーライン、アッパーライン、低解像度グラフ ィ ックモードなどについ 
てはハードウエアには表示する能力があるのに、 BASIC ではサポートされていないので、 
自力でやるしかありません。 

そこでここでは、2つの方法でアトリビュートのセットを行なった例を示します。 

①ワークエリアを操作する方法 

PRINT 文で文字を出力するときには、 E 6 B 4 H 番地に格納されている値でアトリビュート 
をセットします。 E 6 B 4 H 番地は COLOR 文でセットされるのですが、直接ここに属性コー 
ドを書き込むと、その値を使ってプリントされるようになります。たとえばここに 20 H を入 

れると、以後の文字にはアンダーラインが付くようになります。ただし、 COLOR 文を実行 
すると値が再設定されてしまいますので、アンダーラインは付かなくなります。 

白黒モードのときはこの方法で COLOR 文と同じような感覚でアンダーラインなどが付け 
られますが、カラーキードのときはちょっと問題が起こります。「6-2-1属性コード」の 
ところを御覧になればわかるとおり、カラーモードでは属性コードが2種類あります。 

N 『 BASIC では色指定がある方の属性コードを使っています。こちらの属性コードを書 
き込む分にはよいのですが、もうひとつの機能指定がある方の属性コードを書き込むと、そ 
の属性で書いた文字からその行の最後まで、指定した機能が効いてしまいます。たとえば5 
文字目にアンダーラインをつけた文字を書くと、5文字目から行の最後までアンダーライン 
がついてしまうわけです。 

この対策としては、機能をつけたくないところの最初*にノーマルの属性で （POKE 
& HE 6 B 4, 0 ) 文字を書く方法があります。 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


’- Write machine code 

FOR I=&HF320 TO &HF329 

READ DAS : POKE I,VA し（ ” &H”+DAS) 
NEXT 

DEF USR=&HF320 

DATA 0E,00,7E,23,66,6F,CD,51,43,C9 

’- Sample program 

CONSOLE 0 ， 25" 1:WIDTH 80, 25 
DEFINT A - Z 

3 

FOR 1=0 TO 29 

C し R=INT (RND>i<7) +1 
X=INT (RND>i<80) 

Y=INT(RND 水 20) 

V. ADRS 二 &HF3C8+Y 木 120+X 
LOCATE X,Y : PRINT CHRS(i); 

GOSUB 本 ATR.SET.SUB 
NEXT 

9 

END 

» 

本 ATR. SET. SUB 

POKE &HF321 ， CLR 桃 H20+&H18 

DUMMY=USR CV. ADRS) 

RETURN 


CONSOLE , ， ，0 

LINE INPUT ’’Input String :”； STR\ : CS 

PRINT 

* 

POKE &HE6B4,&H20 
PRINT STRNGS 
COLOR 0 


② ROM 内ルーチンの利用 

いまのは PRINT 文が使うワークエリアを操作する方法でしたが、こんどはアトリビュー 
トエリアに属性をセツトする方法を紹介します。これは ROM 内のルーチンを利用すると簡 
単です。使い方は, HL レジスタに画面上のアドレス、 C レジスタに属性コードを入れて 
4351 H 番地を CALL するだけです。この方法は機械語でアトリビュートをセツトするときに 
も使えます。 

次の例はアトリビュート •コー ドを低解像度グラフィツクにするものです。乱数で発也さ 
せた位置(横〇〜159，縦〇〜 99) に低解像度で PSET します。 

リスト 6-4 


次の例は白黒モードで、入力した文字列にアンダーラインを引くプログラムです。 

リスト 6-3 


0 0 0 
5 6 
3 3 


4 

3 


0 0 0 0 0 0 0 
0 12 3 4 5 6 

ii 11 11 IX 11 
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6-3 CRT コントローラ 


CRTC ( " PD 3301) は、 DMAC とともにテキスト用 VRAM の表示に使用されています。 


6-3-1 コマンド 

CRTC には9つの命令がありますが、 PC -8801 mk ! l ではそのうちの7つを使用できます。 

コマンド0 :イニシャライズ 

画面パラメータの設定をします。 WIDTH 文 • CONSOLE 文では、このコマンドを使って 
います。なおこのコマンドで3301を再設定するときには DMAC も設定しなおさなくてはな 
りません。 


ム ム、 

叩 TI 



データ 

(パラメータ） 




ビット 7 

6 


n 

B 

D 

■ 

■ 

① OUT 51 H 

0 , 

0 


0 

0 

0 


0 

© OUT 50 H 

C/B 

H 6 


H 4 

H 3 

H 2 

HI 

HO 

③ OUT 5 GH 

B 1 

BO 


議 

L 3 

■ 

LI 


© OUT 50 H 

S 

Cl 

CO 

R 4 

R 3 

R 2 

R 1 

R 0 

⑤ OUT 50 H 

V 2 : 

VI 

VO 

Z 4 

Z 3 

Z 2 

Z 1 

Z 0 

® OUT 5 OH 

AT 1 

AT 0 

SC 

A 4 

A 3 

A 2 

A 1 

AO 


まず下の説明を見て、各ビットを1にするか0にするかを決め、16進に変換し、①〜⑥を、 
この順番に OUT します。 

①リセット 

DMA 要求が停止され、スクリーンフォーマット1 〜 5を書き込み可能にします。 

© スクリーンフオ ー マット1 

• DMA 動作指定 ( C / B ) 

0 : DMA バーストモード 

1 : DMA キヤラクタモード 

• 1行当たりの文字数 


H 6 

H 5 

H .4 

H 3 

H 2 

HI 

HO 

1 行当たりの文字数 

0 

0 

0 

0 

0 

0 

0 

2 

0 

0 

0 

0 

0 

0 

1 

3 

0 

0 

馨 

0 

: 1 

0 

0 

1 

0 

4 

1 

0 

0 

1 

1 

1 

0 

80 


(1001110をこえる値は指定禁止) 
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③スク リーン フオーマツト2 

•プリンキング時間指定（プリンクの周期) 


B 1 

B 0 

力ー ソルフ、'リンク （画面） 

ァトリビュートブリンク（画面） 

0 

0 

16 

32 

0 

1 

32 

64 

1 

0 

48 

96 

1 

1 

64 

128 


カーソルブリ ンクの 明暗比率は1対1、アトリビュートブリ ンクは 3対1です。つまり、 
B 1 B 0 =00としたと き 力ー ソルの 明暗は8画面ごとに変わり、アトリビュートによるブ 
リンクは24画面の間は明で、8画面の間は暗となります。 

• 1画面当たりの行数 


L 5 

L 4 

L 3 

L 2 

L 1 

L 0 

1幽面当たりの行数 

0 

0 

0 

0 ! 

0 

〇 ! 

1 

〇 1 

0 

0 

0 

0 

1 

2 

0 

0 

0 

0 

1 

0 

3 

1 

1 

1 

1 

1 

1 

64 


④スクリ ーンフオー マット 3 
1行 おきの 表示指定 （ S ) 

0 : 通常指定 

1 : 1行おき表不 

行数指定において25行を指定し、 S =1 とすると、1行目から13行目までの文字データが 
1行おきに画面に表示されます。 

. 力ーソル 表示 モード 


C 1 

C 0 

力ーソル表^ K モード 

0 

0 

ブリンクしないアンダーラインカーソル 

0 

1 

ブリンクするアンダーラインカーソル 

1 

0 

ブリンクしない反転ブロックカーソル 

1 

1 ' 

ブリンクする反転ブロックカーソル 
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1 文字当たりのライン数を13以下の値に設定した場合、アンダーラインカーソル表不モ 
ドを指定しても表示はしません。 

• 1文字当たりのライン数 


R 3 

-- 

R 2 

R 1 

R 0 

— 


文字当たりのライン数 


指定禁止 

指'疋示止 


4 



















⑥スク リーンフォーマット 5 

•アトリビュートおよび特殊制御文字モード指定 


AT 1 


sc 


特殊制御文字 

■ 


■ 

アトりビュート無 

無効 



■ 

ノン ト ランスペアレン ト 白黒 

無効 

■ 



ノン ト ランスペアレン ト 白黒 

有効 



■ 

トランスペアレント闩黒 

有効 

B 


B 

トランスペアレント カラー 

冇効 

■ 



指定禁止 





指定禁止 


■ 

■ 

■ 

指定禁止 



特殊制御文字を有効にした場合、特殊制御文字用として各行•について2バイト余分に確保 
する必要があります。 


• 1行当たりの最大アトリビュート数 


A 4 

A3 


■ 

A0 

1 行 当たりの最大 ァトリ ビュー ト 数 

■ 

■ 



■ 










■ 


■ 

3 

1 

■ 

■ 

1 

■ 

20 


10011を越える値は指定禁止、また、最火アトリビュート数には特殊制御文字数も含ま 

れています。 
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< 標準的な パラメー タ> 

PC - 8801 mkU には、 ハイス キャン CRT とノーマル CRT があり、これによって CRT のイニ 
シャライズパラメータは異なります。また、20行あるいは25行の表示数によっても異なりま 
す。 




データ 

(16 進） 


ノ ■ 

-マル CRT 

ハイスキャン CRT 

20行 

25行 

20行 

25行 

② 

CE 

CE 

CE 

CE 

③ 

93 

98 

93 

98 

④ 

69 

67 

73 

6 F 

⑤ 

BE 

DE 

38 

58 

⑥ 

カラ 

-モード： 53 

白黒モー 

ド：13 


コマンド1:表示の停止 

DMA 要求が停止されます。動作としては、スクリーンフォーマットを書き込まないイニ 
シャライズ コマン ド（リセット コマン ド）と同じです。 

OUT & H 51, 0 

コマンド2 :表示の開始 

ステータスをクリアし 、 DM A 要求可の状態にして画面表示を開始します。 

OUT & H 51, & H 20 通常表示 
OUT & H 51, & H 21 反転表示 

コマンド3 ••インタラプトマスク 

割り込み要求にマスクをかけるかどうかを指定します。 DMAC をオートロードモードで 
使用しますので、インタラプト無効の状態にします。 

OUT & H 51, & H 43 
コマンド4 :ライトペン位置の読み出し 

ライトペンが押されたときの行、桁座標を読み出します。この命令実行後、ライトペン検 
出ステータス （ LP ) はクリアされます。 

OUT & H 51, & H 60 コマンドの発行 

X - INP (& H 50) 桁位置の読み取り 

Y = INP (& H 50) 行位置の読み取り 

ライト ペン 信号が帰線中に入力された場合、 X の最上位ビットが1となります。 

コマンド5 :力ーソルの ON / OFF 、 位置の設定 

力ーソルの ON / OFF と位置を指定します。 
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• 力ーソル OFF 

OUT & PI 51, & H 70 
OUT & H 50, 桁位置 
OUT & H 50, 行位置 

•力ーソル〇 N 

OUT & H 51, & H 71 
OUT & H 50, 桁位置 
OUT & H 50, 行位置 

コマンド8:ステータスの読み出し 

ステータスフラグを読み出します。 

ポート 51 H ( IN ) 


ビット 

7 

6 

5 

4 

3 

2 

1 

〇 


0 

0 

〇 

Ve 

U 

N 

E 

Li > 


1 —ライト ペン 検出 
—表示終了割り込み発生 

I —特殊制御文字割り込み発生 

— DMA アン ダラ ン 発生 
1 画面表示有効 

図 6-3 -A CRTC の ステータス 

6-3-2 CRTC 設定例 

CRTC を設定するプログラム例を紹介します。これは CRTC，DMAC を設定して、80桁 
/40桁、25行/20行、白黒/カラーを切り換えるプログラムです。ただし、 VRAM のアト 
リビュートは変更しませんし、 N« 8 -BASIC の画面モード用ワークエリアも変更しませんか 
ら、現在のモードと異なるモードを設定した場合には正常に表示されなくなります。また画 
面をクリアしません。 

このプログラムはサブルーチンになっています。 XWID , YWID にそれぞれ横の桁数、縦 
の行数を入れ、 COLR に白黒モードにしたいとき0、カラーモードにしたいとき1を入れて 
から GOSUB * CRTSET とします。 
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リスト 6-5 


100，:======== CRT SET SUBROUTINE ======== 

110 ， entry: 

120 * XWID = 80 or 40 
130 ， YWID = 25 or 20 
140 ， COLR =1or 0 
150 水 CRTSET 

160 IF XWID>60 THEN XWID=80 ELSE XV ； 1D=4 0 
170 IF YWID>22 THEN YWID=25 ELSE YWID=20 
180 OUT &HE4,0 

190 IF YWID=20 THEN RESTORE 礼 20 ELSE RESTORE 礼 25 
200 • 

210 READ DT 

220 DT = PEEK (&HE6C2) AND &HDF OR DT 
230 POKE &HE6C2, DT : OUT &H31,DT 
240 * 

250 ’- 80 or 40, COLOR or MONO 

260 IF XWID=80 THEN DT=PEEK (&HE6C0) OR 1 ELSE DT=PEEK (&HE6C0) AND &HFE 
270 IF COLR THEN DT 二 DT AND &HFD ELSE DT=DT OR 2 
280 POKE &HE6C0,DT : OUT &H30, DT 
290 ’ 

300 * - Synchro off 

310 DT = PEEK (&HE6C1) OR 8 : POKE &HE6C1,DT : OUT &H4 0,DT 
320 * 

330 f - Set DMAC & CRTC 

340 OUT &H51,0 

350 OUT &H68, &H80 

360 OUT &H64, PEEK (&HE6C4) 

370 OUT &H64, PEEK (&HE6C5) 

380 READ DT : OUT &H65, DT 
390 READ DT : OUT &H65, DT 

400 IF INPC&H40) AND 2 THEN READ DT,DT f DT,DT: ’ skip 80CRT 
410 FOR 1=0 TO 3 : READ DT : OUT &H50,DT : NEXT 
420 OUT &H50, PEEK (&HE6B9) AND &H40 OR &H13 
430 * 

440 OUT &H51, &H43 
450 OUT &H68, &HC4 
460 OUT &H51, &H20 
470 f 

4 80 ’- Synchro on 

490 DT = PEEK (&HE6C1) AND &HF7 : POKE &HE6C1, DT : OUT &H40, DT 
500 * 

510 OUT &HE4,3 
520 RETURN 
530 * 

540 ’ - CRTC & DMAC parameters 

550 札 20 ’ 20 1ines 

560 DATA &h00,&h5F,&h89 

570 DATA &hCE,&h93 f &h73,&h38 :， 88 CRT («2-»5) 

580 DATA &hCE,&h93,&h69,&hBE :， 80 CRT (ff2-»5) 

590 

600 木 L25 1 251ines 

B10 DATA &h20,&hB7,&h8B 

620 DATA &hCE,&h98,&h6F,&h58 :， 88 CRT («2-ff5) 

630 DATA &hCE,&h98,&h67,&hDE :， 80 CRT (»2-»5) 

CRTC に設定するパラメ ータは最後の DATA 文で指定されます。ここを変更すると標準 
的でないパラメ ー タを設定することができます。たとえば590, 580 , 620, 630各行の3番目 
のデータ （& H 98 または & H 93) の9を1に変えると、力ーソルのブリンク周期が短くなりま 
す。ほかのパラメータも色々変えてみるとおもしろいのですが、 PC - 8801 mk II というハー 
ドウェアの制限上、/ノ PD 3301 のすベての機能を発揮することができず、変更できるパラメー 
夕も限られています。 

バ PD 3301のアトリビュートには、 NtBASIC で使っているトランスペアレントアトリ 
ビュートの他に、ノントランスペアレントアトリビュートがあります。これはアトリビュー 
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トエリアがなく、表示エリアと同じ領域をアトリビュート指定) I )に使用するものです。アト 
リビュートは1バイトで指定し、アトリビュートか通常の文字かはデータの MSB で判断し 
ます。 

アトリビュートは表示エリアにありますので、アトリビュートが検出されますと、その部 
分だけ表示がでません。従って、ノントランスペアレントモードと呼ばれます。このモード 
を使うとアトリビュートの変更が一行20回までという制限がなくなるという利点があります 
が、アトリビュートの部分が1文字分スペースになる（これは40桁モードにすればもともと 
奇数番目のデータは表示されませんから解決できます）、文字コード 80 H 以上が表示できな 
い（アトリビュートコードとして使用される）、カラーモードがないという欠点があります。 

しかも N ««- BASIC ではまったくサボートされませんから、文字一つ表示するにも自分で 
VRAM をアクセスしなければならないなど、あまり実川的なモードではありません。 

6-4 DMA コントローラ 

DMAC ( " PD 825 7) は、|山 i 面表示叫にはテキスト VRAM 上のデータを CPU を介さずに 
CRTC へ送る役目をしていて、チャネル2を）11いています。 DMAC には全邰で4つのチャ 
ネル （ 〇〜3 ) があり、チヤネル0、1は DMA タイプのフロッピィデイスク用にバススロッ 
卜を用いて使用できますが、チャネル3は使川できません。 

各チャネルには DMA の対象となるメモリの開始アドレスと、長さを設定する2つのレジ 
スタ（各々16ビットと15ビット長）があります。ここにデータを書き込んだ後、全体を制御す 
るモードセットレジスタを設定すると、 DMA 要求があったときに（テキスト画面表示では 
CRTC が送る） DMA が起こります。実例としては次の節の DMAC 再設定プログラムをみて 
<ださい。 

なお、各レジスタの I / O アドレスは第16章の I / O ポートー覧表にあります。 

6-4-1 DMA を止めて実行速度アップ 

DMA が行なわれているときは、 CPU は止まっています。したがってプログラムの実行速 
度は低下するわけです。長時間の計算やテキスト画而を使わないゲームなどでは DMA を止 
めることによって、実行速度を30%近く上げることができます。 DMA のオン.オフは拡張 
命令ノヽ°ッケージを使用しているときは簡単で、 

DMA を止める： CMD TEXT OFF 

DMA を再開する： CMD TEXT ON 

とするだけです。 

拡張命令を使用しないときは 

OUT 81，0 または OUT 104， 0 

によって DMA を止めることができます。ただし、 BASIC のコマンドレベルに戻ってもテキ 
スト画面表示は回復しません。テキスト画面を再び表示させるには WIDTH 文を使うとよい 
のですが、画面がクリアされてしまいます。これを防ぐためには自分で DMAC を再設定し 
なければなりません。そのためのプログラムは次のようになります。 
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10 

OUT 

&H68, &H80 


: ，一旦 DMA を止める 

20 

OUT 

&H64, PEEK(&HE6C4) 

: ’VRAM アドレス下 1 立 

30 

OUT 

&H64, PEEK(&HE6C5) 

: ’VRAM ァドレス上位 

40 

IF PEEK(&HEF88)=25 

THEN 

OUT &H65, &HB7 : OUT &H65, 

&H8B 



: ’25 行のとき 

50 

IF PEEK(&HEF88)=20 

THEN 

OUT &H65, &H5F : OUT &H65, 

&H89 



: ’20 行のとき 

60 

OUT 

&H68, &HC4 


: ，DMAC モード 設定 

70 

OUT 

&H51, &H20 


: ’CRTC に表示再開を指令 


40， 50 行は転送する長さ （15 ビット）を下位、上位の順で OUT します。残りの最上位ビッ 
卜は転送の方向を示すフラグで、1のときメモリから読み出すことを示します。 

6-5 WIDTH 文 

6-5-1 W 旧 TH 文のパラメータの省略 

WIDTH 文は、桁数と行数の2つのパラメータを持ちます。 N - BASIC での WIDTH 文は し、 
ずれも省略できますが(例えば WIDTH ， 25、 WIDTH , など）、 N « 8 - BASIC では行数の省略 
しかできません。したがって桁数がわかっていないときに、行数だけを変えたい場合は次の 
ようにします。 

WIDTH PEEK (& HEF 89), 25(または 20) 

この EP ， 89H というのは画面の行数が入っているアドレスです。ちなみに行数はその前の 
EF88H 番地に入っています。 

ただしこれは BASIC インタプリタが画面モードの値を参照するためのものであって、こ 
れらのアドレスに値を POKE したからといって、画面モードは変化しません。（他に CRTC 
のモード設定が必要です。） 

6-5-2 WIDTH 文とスクロールウィンドウ 

NfBASIC における WIDTH 文は、 N - BASIC のものといくらか相違点があります。前に 
述べたパラメ ー タの省略の他に、次のようなところが異なっています。 




WIDTH 文を実行すると必ず画面がクリア 

される 

桁数を変化させた場合にのみ画面がクリ 

アされる 

WIDTH 文の実行(こよりスクロールウイン 

ドウが初期化される 

( CONSOL 0.25 が行なわれる） 

スクロールウインドウは変化しない 
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第 1 の点については困った点も出てきます。 N - BASIC では、 DMAC や CRTC のモードの 
再設定 （ DMA を OFF にした場合のリカバー 、 OUT 81，33による画面反転をもとに戻すな 
ど）のために、 WIDTH , を実行すればよかったわけですが、 N 『 BASIC ではそれを行なうと、 
消えては困る画面が消されてしまうことになります。これは拡張命令の CMD TEXT ON や 
前出の DM AC 再設定プログラムを使うと解決できます。 

第2の点については、 WIDTH 文を実行する前にスクロールウインドウを覚えておいて、 
実行後に再び CONSOLE 文を実行すればよいわけです。 

プロ グラム例を示しておきます。 

リスト 6-6 

100 ST し N=PEEK(&HE6B2)-1 
110 SCLN=PEEK (&HE6B3) 一 ST し Ni 
120 WIDTH 80,25 
130 CONSOLE STLN,SCLN 
140 PRINT CHRS (11); 

6-6 PRINT 文テクニック 
6-6-1 PRINT 文と改行 

リセット直後と、 WIDTH 文を実行した後で、次の文を実行してみて下さい。 

PRINT STRING $(35，” #”)； ” 0123456789” 

① リセット直後 (40 桁モード） 

リスト 6-7 

print s tr ingS (35, ，T ) ; ” 0 1 23456789.. 

«««»«« 烊 《 «»»«««««»»»«»»»»««»««»» 烊 1 234 
56789 

② WIDTH 40 を実行後 

リスト 6-8 

print s tr ingS (35, ， .«” ）；，， 0123456789'' 

0123456789 

マニュアルの 通り※なら②のようになるはずですが、リセットした後、 WIDTH 文を実行しな 
いと、①のように改行されずに続けて表示されることになります。 

4 PRINT 文で表示する文字列の長さ、数値の長さが、現在の力ーソルのある位置より後方 
にとれない場合、改行して表示される。） 

これはワークエリア E 64 FH 番地の値によるもので、一種のフラグとして考えてもかまい 
ません。 

リセットの時、ここには FFH が書き込まれます。（これは②のような機能を無視するとい 
うことです）また、 WIDTH 文を実行すると、その桁数が書き込まれます。つまり文字列等 
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FOR 1=0 
PRI\T 
NEXT 


WIDTH 80,25 
POKE &HF/64F, 4 0 

PRINT M 0- ... 5. ... 0. ... 5. ... 0 


1 00 
11 0 
120 
130 
140 
150 
160 


実行結果 

0 1 1.41421 1. 73205 2 2. 23607 

2.44949 2 - 64575 2. 82843 3 3. 16228 

3. 31662 3. 4641 3. 60555 3. 74166 

3. 87298 4 4.123114. 24264 4. 3589 

4. 47214 4. 58258 4. 69042 4. 79583 

4. 89898 5 5. 09902 5. 19615 5. 291 5 

5. 38517 5- 47723 5. 56777 5. 65686 

5. 74456 5. 83095 5. 91808 6 6. 08276 

6.16441 6. 245 B. 32456 6. 40312 

6. 48074 6. 55744 6. 63325 6. 70821 

B, 78233 6. 85566 6. 9282 7 7.07107 


A” tab (43) ” B” I ノ 




n 


(.〕 




( N - BASIC ) 

表示桁数に関係なく値の数だけ空白を出力します。 


6-6-2 PRINT 文と TAB 関数 

TAB 関数の働きが、 N-BASIC と N « 8 - BASIC では異なります。 N-BASIC のプログラム 
を N^BASIC のプログラムに直すとき、注意したいことの1つです。 

①値が表示桁数を超える場合 

( Nbs - BASIC ) 

値を表示桁数で割った余りが、値となります。（ただし、 WIDTH 文を少なくとも1回 
実行しておく必要があります。 

リスト 6 -10 (40 桁モード） 


を表示する場合、力ーソルの位置がその値を超えるようであれば改行して表示するというこ 
とを示しています。 

ですから、 N-BASIC のように、①のような表示をしたければ、 WIDTH 文を実行した後 
であっても、 E 64 FH 番 it!l に FFH を POKE してやればよいわけです。 

これを使って次のようなこともできます。このプログラムは、80桁モードで平方根の値を 
表示するのに、面の左半分だけに出力するものです。あたかも、 WIDTH PRINT ( ? ) 
を実行したかのように動作していますね。 

リスト 6-9 


/ J 

0 r— 

5 ( 
R 
O Q 
T S 


n B 
1 

r k 
p A O 
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リスト 6-11(40 桁モード) 


WIDTH 40, 25 
POKE &HE6B6, 1 

LOCATE 17,10 : PRINT CHRS (30); 

LOCATE 16,11: PRINT CHR$ (29) ; ” 口 ” CHRS (28); 
LOCATE 17,12 : PRINT CHRS (31); 

POKE &HE6B6,0 
END 


print ” A” tab (43) ”B”g 
A 一 

• B 
Ok 

②プリント位置が TAB の値を超えている場合。 

( Nsa - BASIC ) 

改行して次の行の TAB 位置まで空白を出力します。 

リスト6 -12 (40 桁モード) 

print ” 0 123456789” tab (7) X. tab (2) ••==•• 

0123456789 

本氷 

Ok 

( N - BASIC ) 

TAB は無効となります。 

リスト 6 -13 (40 桁モード） 

P r in t " 0123456789'' tab (7) ，，水 本 ” tab (2) ” == ” ''フ 
01 23456789>k>k== 

Ok 

この他にも、 N« 8 -BASIC では、 TAB の値は-32768〜32767までとれますが、 N-BASIC で- 
は 0 ~255 しか とれない、 という違いもあります。 

6-6-3 PRINT 文で矢印を書く 

キヤラクタコード表を見ると、’ t ’とか’ C L ’ などの直接 PRINT 文で書けない文字がありま 
すね。特に矢印は使ってみたいものの1つです。 PRINT 文がだめなら、直接 VRAM に 
POKE してしまうのも1つの手ではありますが、 VRAM の位置を計算したり、色を付けた 
りするのがどうも面倒です。 

そこで、それらの文字を出力させるテクニックを紹介しましょう。 

POKE & HE 6 B 6, 1 

を実行してみて下さい。 

OK のあとに C fi L f というように出ましたね。力ーソルを移動させると矢印がでます。 
もとに戻したければ、次のようにして下さい。 

POKE & HE 6 B 6, 0 

これはプログラム中でも使うことができます。次のプログラムで確かめてみましょう。 

リスト 6-14 


0 0 0 0 0 0 0 
0 12 3 4 5 6 

IX IX IX IX IX IX 11 
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PRINT 文の 後に，，；，， がついていますが、これは、 ’ c r l f •という文字が出てしまうのを 
避けるためです。 

なお、一文字だけであれば CHR $(& H 19) のあとに続けて書くと、そのコントロール文字 
がでます。たとえば、 

PRINT CHR $(& H 19)； CHR $(& H 1 C ) 

とすると右向き矢印が表示されます。 

6-7 テキスト画面の GET • PUT 


N-B ASIC では、テキスト画面の GET (画面のデータを配列に取り込む）、 PUT (配列のデ ー 


夕を画面に表示する）が使えましたが、 N^BASIC では、グラフィック画面の GET，PUT 
しかできません。 

ここでは、 BASIC と機械語を組み合わせてアトリビュートも含めたテキスト画面の GET ， 
PUT サブルーチンを作ってみました。 

これは、 N-BASIC での GET @ A ， PUT @. と同じようなもので、 （ GX 1， GY 1)-( GX 2, GY 2) 
の間の画面データを整数型配列 ARY に読み込んだり、逆に、画面に表示するためのサブルー 
チンです。 

リスト 6-15 テキスト画面 GET , PUT サブルーチン 

1000 ， - GET® SUB ROUTINE - 

1010 ’ GET@A (GX 1, GY 1 ) - （ GX2, GY2) , ARY 

1 020 ，- 

1030 f 

1040 >KGET. SUB 
1050 ERASE ARY 

1060 GXS=GX2 - GX】+ 1 : GYS=GY2 - GY 1 + 1 
1070 DIM ARY (GXS 水 GYS) 

1080 FOR Y=1 TO GYS 
1090 FOR X=1 TO GXS 


1 100 VAD=&HF3C8+120 冰 (GY1+Y-1) + (GX1+X-1) 

1110 ARY (GXS 本 （ Y - 1)+X)=USR0(VAD) 

1 120 NEXT X 
1130 NEXT Y 
1140 RETURN 

2000 ， - PUT® SUB ROUTINE - 

2010 ， PUT® A (GX 1,GY1)-(GX2,GY2), ARY 


2020 -- 

2030 ’ 

2040 本 PUT.SUB 

2050 GXS=GX2 - GX1+1:GYS=GY2-GY1+1 
2060 FOR Y=1 TO GYS 
2070 FOR X=1 TO GXS 
2080 POKE &HF2FE,GY1+Y 

2090 POKE &HF2FF,GX1+X 

2100 DM=USR1 (ARY(GXS*(Y_1)+X)) 

2110 NEXT X 
2120 NEXT Y 
2130 RETURN 
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* 使用する変数はすべて整数型にしておいて下さし八 


250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 


' GET@A,PUT0A Sample 

9 

〇 一一 —— INIT - 

WIDTH 80, 25 : CONSOLE ", 1 
CIS 

DEFINT A-Z 
DEF USR0=&HF2F0 
DEF USR1=&HF2E0 
DIM ARYC0) 

FOR I=&HF2E0 TO &HF2FC 

READ D$ : POKE I,VAL (” &H”+D$) 

NEXT 

DATA 46,23,4E f C5 f 2A 9 FE,F2,CD,9D,42,Cl,CD,50,43,C9,00 
DATA E5, 7E, 23, 66, GF, CD, 52, 44, El, 77, 23. 71,C9 

，一一一一一 T est PROGRAM - 

GX1=0 : GY1=0 
GX2=4 : GY2=2 

COLOR 4 : LOCATE GX1,GY1 : PRINT ”i - 1" 

CO し OR 2 : LOCATE GX1+2,GY1 : PRINT ; 

COLOR 4 : LOCATE GX1 f GY1+1 : PRINT ” I I n 
CO し OR 5 : LOCATE GX1+1,GY1+1 : PRINT ” 木十本”； 

COLOR 4 : LOCATE GX1,GYl+2 : PRINT - 

GOSUB 本 GET. SUB 
FOR 1=1 TO 20 

GX1=RND^70 : GY1=RND^20 
GX2=GXl+4 : GY2=GYl+2 
GOSUB ホ PUT. SUB 
NEXT 
END 

9 ———— GET® SUB ROUTINE ———— 

0 GET®A(GX1,GY1)-(GX2,GY2) 9 ARY 


*GET. SUB 
ERASE ARY 

GXS=GX2-GX1+1 : GYS=GY2-GY1+1 
DIM ARY(GXS ホ GYS) 

FOR Y=1 TO GYS 
FOR X=1 TO GXS 

VAD=&HF3C8+120 本 （GY 1+Y-D + CGX1+X-1) 
ARY (GXS* CY-D+X) =USR0 CVAD) 

NEXT X 
NEXT Y 
RETURN 

• - PUT® SUB ROUTINE - 

9 PUT@A(GX1,GY1)-(GX2,GY2),ARY 


配列 ARY の 1 つの要素には、 1 つの文字コードとアトリビュートコードが入ります。 


ARY(X ) アトリビュートコード 


文字コード 


1 バイト 

次に簡単なテストプログラムをあげておきます 

リスト 6-16 


バイト 


000000000 

012345678 

555555555 


0 0 
7 8 


c c c G c G c G G 

012345678 

lx 1A 11 i> i> is is Is il 


rv cv v 

9 0 12 3 4 

12 2 2 2c 
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590 水 PUT.SUB 

800 GXS=GX2-GX1+1 : GYS=GY2 - GY1+1 

610 FOR Y=1 TO GYS 

620 FOR X=1 TO GXS 

630 POKE &HF2FE,GY1+Y 

640 POKE &HF2FF,GX1+X 

650 DM=USR1(ARY(GXS 水 （ Y-l)+X)) 

660 NEXT X 

670 NEXT Y 

680 RETURN 
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第 7 章 グラフィック 画面 


グラフイック画面は次のような流れで表示されます。 



図 7- A グラフイック画面表示の流れ 


7-1 グラフィック VRAM 

7-1-1 GVRAM とグラフィック画面 

PC -8801 mkll は、グラフイック用の VRAM ( GVRAM ) として COOOH 〜 FFFFH までの 
16 K バイ トを 3バンク（計 48 K バイ ト） 持っています。この GVRAM は、 通常 CPU のアドレス 
空間上にはなく、〇 UT 命令でバンクを切り換えてアクセスします。メモリマップは次のよ 
うになっています。 



通常 GVRAMO 選択 GVRAM 1 選択 GVRAM2 選択 


図 7-1 -A GVRAM のメモリマップ 

各グラフィックモードによって、3つの GVRAM を組み合わせて使っています。 

( 1 ) カラーグラフィックモード （SCREEN 0) 

CRT ディスプレイの種類にかかわらず、カラーグラフィックの解像度は 640 X 200 ドット 
です。3つの GVRAM を組み合わせて、8種類の色を出しています。カラーパレットを考え 
ない場合は、各 GVRAM を光の3原色に割り当てていると思えばよいでしょう 。 （GVRAM 
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0= 青， GVRAM 1= 赤， GVRAM 2= 緑） 、 

テキスト画面の色は、このカラーグラフィックとは無関係に CRTC( ； /PD 330 1) のアトリ 
ビュートで指定できます。また、テキスト画面を表示するか、カラーグラフィック画面を表 
示するか、あるいは、テキストとカラーグラフィックを同時に表示するかの選択もすること 
ができます。 

GVRAM の 0 — 2 を重ねあわせたものが CRT の画面に表示されます。各 GVRAM の同ア 
ドレス、同ビットのデータによってパレットが定まります。パレットの機能については、「6 
-2」カラーパレットの制御を御覧下さい。 



GVRAM2 / 


GVRAM 1 /P 



GVRAMO 



0 


CRT 


ノ\°レツト5 


図7-卜 B カラーグラフィックモード 


<各 GVRAM のビット状態とパレット番号との対応> 


GVRAM 2 

GVRAM 1 

GVRAMO 

パレット番号 

0 

0 

0 

0 

0 

0 

1 

1 

0 

1 

0 ' 

2 

0 

1 

1! 

3 

1 

0 

0 

4 

1 

0 

1 

5 

1 

1 

0 

6 

1 

1 

1 

7 


(2) モノクログラフィックモード （ SCREEN 1 ) 

グラフィックの解像度は 640 X 200 ドットです。このモードでは3つのグラフィックプレ ー 
ン （GVRAM 0,1, 2) があり、各々第1画面〜第3画面に割り当てています。これら 
とテキスト画面と合わせて、4種類の画面ソース（テキスト、 GVRAMO , GVRAM 1, 
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GVRAM 2 ) を持つことになり、どの画面ソースをも重ね合わせて表示させることができま 
す。この場合、色（アトリビュート）の指定はテキスト VRAM のもの、すなわち、バ PD 3301 
の機能で行ないますので、最小のアトリビュート指定単位は1キャラクタ （ 8 X 8ドット）で 
す0 



図7-卜 C グラフィックモード 


(3) 高解像度グラフィックモード （SCREEN 2) 

これは高解像度 CRT が接続されている時にのみ使用できるモードで、解像度は 640 X 400 
ドットです。このモードでは、グラフィックの表示は GVRAMO , GVRAM 1 をつなげた1ベー 
ジのみで、画面表示のソースは、このグラフィックとテキストの2つです。 GVRAM 2 は 
使用されていません。カラー指定とアトリビュート指定は、グラフィックモードと同じくバ 
PD 3301 のアトリビュートで指定でき、この場合のアトリビュートを指定できる最小単位は 
8 X 16 ドットです。 



図7-卜 D 高解像度グラフィックモード 

• GVRAM のアドレス 

GVRAM アドレスとグラフイック画面との対応は次のようになっています。 
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たとえば、ウインドウもビューポートも考えない場合は、点（100, 150) はアドレス 150 X 
80 +100 ¥ 8 + C 000 H = EEECH 、 ビットは100 mod 8 = 4ですから、左から5個目 
です。第2章の拡張 PEEK / POKE プログラム （ P 30 ) を使ってやってみましよう。 

SCREEN 0 : ROLL 197 

FOR 1=0 TO 7 : COLOR = (I, I) : NEXT 

として画面をイニシャライズし 

POKE & HEEEC , & H 8，” 2” 

とすると、画面に緑色の点が現われますね。これが本当に（100， 150) にあるかどうか確かめ 
るために、 

PSET (100, 150), 2 

とすると、緑色の点が赤色になりました。間違いなかったことがわかりました。 

ここで G VRAM を直接アクセスするサンプルプログラムを上げておきます。拡張 PEEK 
/ POKE を使っています。 

リスト 7-1 

100 DEFINT A-Z 

110 SCREEN 0 : CONSOLE ,,0 : C し S 
120 FOR 1 = 0 TO 7 : COLOR= (I , i) : NEXT 

130 f 

140 FOR 1=0 TO &H3FFF 
150 D 二 PEEK(I+&H1000) 

160 POKE &HC000+I,D,”2” 

170 NEXT 
180 f 

190 FOR 1=0 TO 500 

200 PAINT (RND>K639, RND>{<199) , 3, 4 

210 NEXT 


7-1-2 GVRAM のアクセス 

すでに述べたように GVRAM はメイン RAM と同じアドレスにあって、バンク切り換えを 
行なってから読み書きします。 


GVRAM をセレクトするためには次のようにします。 

GVRAM0 …… OUT 5CH を行 1 なう。 

GVRAM1 …… OUT 5DH を行 1 なう。 

GVRAM2 …… OUT 5EH をなう。 

* OUT する データは 何でもよい。 

こうするとアドレス C000H 〜 FFFFH に選んだ GVRAM が現れ、 C000H 〜 FFFFH のメイ 
ン RAM はアクセスできなくなります。再び、メイン RAM をアクセスするためには、 

OUT 5FH 

を行ないます。これも OUT するデータは何でもかまいません。 

残念ながらこれらの制御は BASIC で行なうことはできません。 BASIC は C000H 〜 
FFFFH のメイン RAM を必要とするからです。そこで機械語を使って行なうわけですが、 
この時にいくつか注意しなければならないことがあります。 

( 1 )GVRAM をアクセスする機械語自身は C000H 番地よりも前に置く。 
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そうしないと GVRAM をセレクトした瞬間にその機械語自身が CPU から見えなくなって 
しまいます。 

(2) GVRAM をセレクトしている間はインタラブトを止めておく。 

NsrBASIC ではインタラプトの処理のために COOOH 〜 FFFFH のメイン RAM を使うから 
です。独自にインタラブトテーブルやインテラプト処理ルーチンを作成した場合にはこの限 
りではありませんが。 

(3) GVRAM をセレクトしている間は、スタックを使わない。 （ PUSH , POP , CALL , RET , 
RST などを使わない。） 

N 88 - BASIC から機械語を使用するときは、通常スタックはメイン RAM の a )00 H よりも後 
にあります。したがって GVRAM をセレクトすると、スタックは使用できなくなります。 
スタックを使用したい時には、スタックを C 000 H より前に設定する必要があります。これ 
は① GVRAM をセレクトする前にスタックを移し、再びメイン RAM をセレクトしてからス 
タックをもとに戻すか、② BASIC レベルで CLEAR ，& HBFFF を行なうかします。どちら 
の方法をとるにしても、メイン RAM で C 000 H より前で使用可能な分は非常にせまいので、 
必要な部分（変数エリアやファイルテーブル、ディスクコードなど）をこわさないようにして 
下さい。どの部分が使用可能かは第3章 N 88 - BASIC の内部構造を参照して確認してくださ 

い。 

(4) GVRAM をセレクトしている時間は短くする。 

フラッシュモード（後述）でない場合は GVRAM をセレクトすると CPU の速度が低下しま 
す。グラフィック画面を表示中は実行が止まるようになり、帰線中にのみ実行が行なわれる 
からです。 

GVRAM をアクセスする一般的なプログラムは次のような形になります。 

DI 

OUT (5? H ), A 
GVRAM の読み書き 

OUT ( 5 FH ), A 
El 

たとえば、 GVARAM に 1 バイト書き込むプログラムを考えて見ましょう。 

HL に書き込みたいアドレス （ C 000 H 〜 FFFFH ) 

A に書き込みたいデータ 
C に書き込みたい GVRAM ( 5 C , 5 D , 5 E ) 


とすると 


DI 


OUT 

(C)，A 

LD 

( HL ), A 

OUT 

( 5 FH ), A 

El 



となります。 
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また、現在どの GVRAM がセレクトされているかを知ることができます。これにはポート 
5 CH を使います。 


ポート 5 CH ( IN ) 


7 6 

5 

4 

3 

2 

1 

〇 

7 

Z 

Z 



G2 

G1 

GO 


GVRAMO が選択されている 
GVRAM 1 が選択されている 

GVRAM2 が選択されている 


図 7-1 -G GVRAM ステータスポー ト 

7-1-3 カラーグラフィック画面のセーブ、ロード 

グラフィック画面をディスタにセーブすることを考えましよう。 GVRAM はメイン RAM 
上にありませんから、残念ながら BSAVE でセーブすることはできません。そこでデータファ 
イルとして書き出すことにします。ファイル形式はランダムアクセスファイルとして、次の 
ようなフォーマツトで格納します。 


Blue Red Green 


レコード # 1 

レコード # 2 


レコード #3 

レコード # 4 

レコード #5 


レコード # 6 


1 


レコード #187 

レコード #188 


レコ ー ド井 189 


図 7-1- H グラフィック画面格納フォーマット 

下のがそのプログラムです。機械語の部分は引き数で指定したアドレスから、一度に256 
バイトを GVRAM から読んで、 I / O バッファに直接書き込みます。そうして PUT 文でディ 
スクに書き出しているわけです。セーブするファイル名は140行の OPEN 文で指定します。 
必要があれば変えてください。 

リスト 7-2 


100 ’ 

110 • GRAPHIC SCREEN SAVE 
120 f 

130 DEFINT A - Z 

140 OPEN "GVRAM. scr" AS«1 

150 ’ - Write machine code 

160 BUF0=VARPTRC«0)+9 : BUF1=VARPTR(«1)+9 
170 RESTORE ホ SDATA 
180 FOR 1=0 TO 31 
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340 

350 

360 

370 

380 


FOR I =1 
GET 林 1 : 
GET 林 1 : 

GET 林 1 : 
AD = AD 
NEXT 
CLOSE 
END 


TO 63 

DMY=USR0 (AD) 
DMY=USR1 (AD) 

DMY=USR2 (AD) 

+ &H100 


230 

240 

250 

260 

270 

280 

290 

300 


^ GRAPHIC SCREEN LOAD 
DEFINT A-Z 

OPEN ” GVRAM. sc r” AS»1 
SCREEN 0,0 

， - Write machine code 

BUF0=VARPTR (»0)+9 : BUF1=VARPTR(tfi)+9 
RESTORE 木 SDATA 
FOR 1=0 TO 31 

READ DS : POKE BUF0+1,VAL (” &H”+D$) 

NEXT 
ホ SDATA 

DATA 0E,5C ， 18,06,0E,5D,18,02,0E,5E,2A,41,EC,11,55,55 
DATA EB,F3,ED,79,01,00,01,ED,B0,D3,5F,FB,C9,00,00,00 
POKE BUF0+&HE,PEEK (VARPTR (BUF1)) 

POKE BUF0+&HF,PEEK(VARPTR CBUF1)+1) 

DEF USR0 = BUF0 : DEF USR1=BUF0+4 : DEF USR2 = BUF0+8 

• - GVRAM address set 

AD = &HC000 

’ - Move GVRAM into DISK 


このフログラムは大変遅くて、ロー ドするのに数十秒もかかります。これを改善するには、 
デイスクからの読み込みをセクタ単位でなくクラスタ単位で行なう、データを圧縮してセー 
ブしておく、などの方法がありますので考えてみてください。 


190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


READ D$ : POKE BUF0 + I , VAL (” &H”+D$) 

NEXT 

>i<SDATA 

DATA 0E,5C,18,06,0E,5D,18,02,0E,5E,2A,41,EC,11,55,55 
DATA F3, ED, 79, 01,00, 0 1,ED, B0, D3, 5F, FB, C9, 00, 00, 00， 00 
POKE BUF0+&HE,PEEK(VARPTR CBUF1)) 

POKE BUF0+&HF,PEEK (VARPTR(BUF1)+1) 

DEF USR0 = BUF0 : DEF USR1=BUF0+4 : DEF USR2 = BUF0+8 

’ - GVRAM address set 

PAGE =189 : AD = &HFE00 

f - Move GVRAM into DISK 

FOR I = 63 TO1 STEP 一 1 


DMY=USR2 (AD) 
DMY=USR1CAD) 
DMY=USR0 CAD) 

AD = AD - &H100 


PUT 林 1,PAGE 
PUT«1,PAGE 
PUT 林 1,PAGE 


PAGE=PAGE - 1 
PAGE=PAGE - 1 
PAGE=PAGE 一 1 


Green 
Red 
B1 


350 NEXT 
360 CLOSE 

370 END 


次は GVRAM にロードします。これはセーブのときの逆をやればよいわけで、考え方は 
同じです。 


リスト 7-3 


0 0 0 
123 
3 33 


0000000000 000 
0123 4 56 789012 
1111111111222 


n 

e e 
u d e 
1 e r 

BR G 
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7-2 カラーパレツト 


7-2-1 カラーパレツ トの制御 

カラーグラフ イツク モードでは、 GVRAMO， 1，2 の同アドレス、同ビツトに書かれ 
ているデータとカラーパレ ツ トにより表示の色を指定します。 GVRAM のデータとパ レツ 
卜番号の対応はこうなっています。 

表 7 -2-1 GVRAM のデータとパレット番号の対応 


パレット番号 

GVRAM2 

GVRAM1 

GVRAM0 

0 

0 

0 

0 

1 

0 

0 

1 

2 

0 


0 

3 

0 

1 

1 

4 

1 

0 

0 

5 

1 

0 

1 

6 

1 

1 

0 

7 

1 

1 

1 


各パレットに、8色のうち1色を割りあてて色を出しますが、色の割り当ては自由にでき 
ます。 IsU-BASIC ではイニシャライズ時に表 7-2-2 のように割り当てます。 

表 7-2-2 イニシャライズ時のパレット 


パレット 番号 

0 

1 

2 

3 

4 

5 

6 

7 

色 

里 

ハ、、 

青 

赤 

紫 

緑 

水色 

黄 

白 
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SCREEN 0 

FOR 1=0 TO 7 : COLOR=CI,I) : NEXT 
FOR 1=0 TO 7 

LINE(0, I 冰 20) — STEP (639,19), I, BF 

NEXT 


この フロ グラムで 8 色の帯を CRT に表示させます。 OUT 命令でパレットをコン トロール 
すると、色を瞬時に変えることができます。 

OUT & H 56, 60 ’ C 0 L 0 R =(2，6) と同じ 

とすると赤色の帯が黄色になります。 


GVRAM のアドレス C 000 H のビット7に、 GVRAM 0 は1、 GVRAM 1 は0、 GVRAM 2 は 
1が書かれているとします。パレット番号は表 7-2-1 より5となりますので、パレットを 
N 88- BASIC のイニシャライズ時のものと変えていなければ、 CRT の左上隅に水色のドット 
が出ます。このパレット番号と色の割り当ては OUT 命令で変えることができます。 

表7 - 2 - 3 カラーパレットの設定 


ポー トアドレス 

パレット 番号 

OUT 54 H 

0 

OUT 55 H 

1 

OUT 56 H 

2 

OUT 57 H 

3 

OUT 58 H 

4 

OUT 59 H 

5 

OUT 54 H 

6 

OUT 58 H 

7 


上の各ボートにカラーコードを出力すると、対応するパレットに色が設定されます。デ ー 
夕の上位5ビットは無視されます。 


カラーコード 

0 

1 

2 

3 

4 

5 

6 

7 

色 

里 

J \ \ \ 

青 

赤 

紫 

緑 

水色 

黄 

白 


サンプルプログラムで説明しましょう。 

リスト 7-4 


0 0 0 0 0 0 
12 3 4 5 6 
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7-3 グラフィックモードの設定 

グラフィックモードの切り換えは I /〇ポート 31 H を使って行なわれます。 
ポート 31 H ( OUT ) N 88 -BASIC のワークエリア： E 6 C 2 H 恶地 


7 6 5 4 3 2 1 0 



d 7 - 3 - A グラフィックモード切り換え 

これらのうち、 HCOLOR と GRAPH の2つのビットでグラフィックモードを切り換えま 
す。 


HCOLOR 

GRAPH 

グラフイツクモード 

0 

0 

テキストモード 

0 

1 

モノクログラフイツクモード 

1 

0 

禁止 

1 

1 

カラーグラフイツクモード 


高解像度 CRT の場合はさらに2つのビットが意味を持っています。 

2001 ine モノクログラフィックモードの切り換え 

0 640 X 400 ドットモード 

1 640 X 200 ドットモード 

251 ine 

1 高解像度 CRT の25行モード 

0 上記以外の全てのモード 

このポートはメモリモードの切り換えにも使われていますから、そのビットを変えないよ 
うにしなければなりません。したがって、メモリモードの切り換えと同じく、ワークエリア 
を参照して出力する値を決定します。 N 88 -B ASIC では次のようにします。 

10 A %= PEEK (& HE 6 C 2) 

20 A %= A % AND 6 ，メモリ モード 以外の ビットを0にする 

30 A %= A % OR (グラフィックモードによる値） 

40 POKE & HE 6 C 2, A % 

50 OUT & H 31, A % 
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7-4 高速グラフィックアクセス 

PC - 8801 mkll では合計 48 K バイトものグラフィックメモリを扱うために、グラフィック 
関係の命令が遅くなっています。そこでこれを少しでも早くするテクニックを紹介します。 

7-4-1 高速書き込みモード 

SCREEN 文の第2パラメータによって高速書き込みモードにすることができます。 
GVRAM 書き込みは通常は帰線中にのみ行なわれますが、このモードにすると、いつで 
も書き込めるようになります。画面にチラツキが出ますが、2〜3倍の速度で描画できます。 
このモードは I / O ポート 40 H で コン トロールされています。なお、このボートも、他の ビツ 
卜は使われているので注意してください。 


ポート 40 H ( OUT ) Nss-BASIC のワークエリア： E6C1H 番地 

7 6 5 4 3 2 1 〇 


U0P2 

U0P1 

BEEP 

FLASH 

Cl_PS 

CCK 

CST 巳 

PST 巳 





> 



_ 



- 0 • ノ——/ノレモ ー r 


:フラッシングモード 

図 7-4- A フラッシングモード 


7-4-2 CPU の実行速度 

CPU の実行速度を上げると当然グラフィック描画も速くなります。これには次のような 
方法があります。 

① テキスト画面の DMA を止める。 

拡張命令の CMD TEXT OFF によって DMA を止めることができます。詳しくは「第 
6章-4 DMAC 」 を御覧ください。 

② キースキャンを止める。 

POKE & HE 6 CD , 255でキースキャンを止めることができます。詳しくは「第5章-2 
キースキャン」を御覧ください。 

7-4-3 高速画面クリア 

拡張命令を使用しているときには CMD CLS 2を行なえばよいわけですが、そうでない 
場合や、 PC -8801 と互換性をとりたいときには次の方法をとります。 

①まず 、 CLS 2よりも ROLL 文を使う方が速いということがあげられます。これは CLS 2 
は VIEW ウインドウ内だけをクリアするので、 VIEW ウインドウを計算する分遅くなるから 
です。 
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BF00 21 00 00 
BF10 79 06 FA 
BF20 D5 D5 D5 
BF30 F9 FB C9 


866A 

8G7A 

868A 

8G9A 


このサブルーチンもリロケータブルになっていますので、 RAM 上の COOOH 番地より前な 
らどこにでも置くことができます。上の例は、 N 88 DISK-BASIC の場合で、モニタのコマン 
ドメッセージの部分を使いました。 NssROM-BASIC では、ファイルバッファ#0のところ 
にでも置くとよいでしよう。このサブルーチンで書き込むデータの形式は次のようになって 
います。 


7-4-4 グラフィック.データ高速書き込みサフルーチン 

GVRAM にデータを書くには、 N 88 - BASIC のグラフィック命令 （ PSET ， LINE など）を使 
いますが、処理が遅いために、ゲームなどに用いるにはいまひとつです。ここでは、ある決 
まったパターンを高速に書き込む機械語サブルーチンを紹介します。 

リスト 7-6 グラフィック • データ書き込みサブルーチン 


実際 、 CLS 2は BOX FILL のルーチンを用いて行なわれています。これに対して 
ROLL 文は VI EW ウインドウを無視して GVRAM の内容を直接に移動するだけです。 
ROLL 文では一度に197ドットしかスクロールできませんから繰り返して行ないます。 

• 640 X 200 のとき 

ROLL 197 : ROLL 197 

• 640 X 400 のとき 

ROLL 197 : ROLL 197 : ROLL 197 

② 次に、高速アクセスモードにするか、グラフィック表示を消します。つまり、 SCREEN ， 
1〜 SCREEN ， 3で行なうわけです。特に SCREEN ， 3でグラフィック表示を消して 

から画面消去を行ない 、 SCREEN 0で表示を戻すとチラツキもなくきれいに消えます。 
BASIC で行なえるのはここまでです。これ以上早くするには機械語を使います。 

③ 機械語を用いる場合でも、テクニックを使ってなるべく早くします。鍵となるのは 
PUSH 命令です。これは一度に2バイトを書き込めますので、高速でクリアできます。こ 
こではダンプリストだけをのせておきます。ソースリストは付録 （ P 432 ) を見てください。 
また、この場合も当然高速アクセスモードにした方が速くなります。 

この例では BF 00 H 番地からになっていますが、このプログラムはリロケータブルですの 
で、 C ⑻ 0 H 番地よりも前でしたらどこにでも置けます。使わなしバ/〇バッファに置くのも 
よいかもしれません。 

リスト 7-5 


D 5 F 0 
E D 5 0 

2 5 3 
0 D D 


0 

0 


匕 5 C 0 
J D D 0 

K- 5 8 0 
ul D 3 0 

S 5 
8 D 


F 0 
5 0 


1 5 E 0 
J D F 0 


0 

0 


3 5 9 
F D 7 

C 5 C 0 
5 D 0 0 

E 5 9 0 
0 D E 0 

0 5 0 0 
0 D 2 0 

0 5 D 0 
0 D 3 0 

1 5 E 0 
1 D E 0 

9 5 0 0 
3 D 1 0 


5 A F 

cl 

B 3 
El 


4 

0 

9 


3 F 0 

2 5 5 

6 3 E 

4 D 3 

3 7 5 
2 7c 


ED 
4 5 


c 


B 3 6 
E D E 

2 A 0 

f T > il 11 


0 3 3 9 

6 12c 

B F B 8 
5 5 F D 


D 3 3 
EDI 


0 

2 


F 7 F D 
6 7 5 0 

6 c 31 

6 5 D c 


3 3 7 9 


7 

7 


2 D 7 0 


E A E 0 
7 15 0 


0 

0 


3 3 6 
F D 0 


ill 



• データの 形式 


1バイトめの GVRAMO のデータ 


リスト 7-7 

E000 10 04 00 FF FF 00 FF FF 00 FF 
E010 FF 00 FF FF 00 FF FF 00 F0 F0 
E020 00 FF FF 00 F0 F0 00 FF FF 00 
E030 F0 F0 00 86 86 00 0C 0C 00 18 
E040 01 F0 F3 F0 07 E7 07 C0 C0 C0 
E050 IF DF 1F 80 B0 80 0F EF 0F C0 
E060 70 00 IF DF 1F 80 BF 80 7E 7E 
E070 3F 00 7E 00 FC FD FC 00 F0 00 
E080 F0 F3 F0 00 E0 00 00 83 83 00 
E090 10 10 00 FF FF 00 FF FF 00 FF 
E0A0 FF 00 FF FF 00 FF FF 00 F0 F0 
E0B0 00 FF FF 00 F0 F0 00 FF FF 00 
E0C0 F« F0 00 00 00 00 00 00 00 00 


// 

// 


2 


// 

// 


XX △△ 



( XXY 組） 

横のバイト数（ドット数ではない) 
縦のドット数 


F 260 


データの格納されている先頭番地 


例）横16ドット，縦4ドットのパターンのデータを E 000 H から入れる場合 


•ン 


• -16 ド 

ット -- 

f 

Datal 

Data5 

L 

Data2 

Data6 


Data3 

Data7 


Data4 

Data8 


E 000 

04 

02 

XX XX XX 

XX 

F 260 

00 

E 0 

Datal 



XX XX 


XX XX XX 


Data 2 


Data 8 


図 7-4- B グラフィックデータ高速書き込みデータ形式 


【使ぃ方】 

グラフィック画面はカラーモードにしておいて下さい 。 （SCREEN 0) 

DEF USR = & H 866 A (機械語サブルーチンの先頭） 

で、 USR 関数を定義しておきます。あとは、表示したい位置の GVRAM のアドレスを引数と 
して、 USR 関数を使えば、データが表示されます。 

DUMMY = USR (& HC 000) 

引数は整数型でなければなりません。 

それでは実際に使ってみましょう。先のサブルーチンが正しく入力されていることを確認 
して、次のデータを入力します。 

( CLEAR , & HDFFF を fi 1 なっておくこと） 


△ △ XX 


Y 


X 


GO G 1 G 2 


FF0900F10FF00 
FF07E0B00FF00 

0FF1FFF9C0FF0 

0FF0E33F00FF0 

00F00F01C00F0 

F0F3EB000F0F0 

0F007F0C00F00 

FF0303F70FF00 

0FF0700CG0FF0 

0FF0FC0700FF0 

F0F87FEC6F0F0 

F0F10D770F0F0 


F2G0 00 E0 
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カーソル 移動 






点のセット 
点のリセット 
色の変更 


終 


了 


(テンキー） 

図 7-4- C グラフィック•データ*ジェネレータキー操作 


DEF USR = & H 866 A 
DUMMY = USR (& HCOOO ) 

を実行すると画面左上になにやら変なマークが出ましたね。 

機械語で使うときは次のようにします。 

HL = GVRAM の表示するアドレス 
DE = データ格納アドレス 
を設定した後 

CALL 8673 H 

このサブルーチンはカラーモード用ですので、白黒モードで使う場合には、不要なバンク 
の データを 0にしておくとよいでしょう。 

機械語に自身のある方は、ソースリスト（付録-1 ) を参考に白黒モード専用サブルーチン 
を作ってみて下さい。 

<グラフィック • データ • ジェネレータ> 

このグラフィック.データ書き込みサブルーチンはどうですか。高速なのは良いのですが、 
データを作るのが面倒ですね。そこで、 この データを作成するプログラムを作ってみました。 
先程のデータも、 この プログラムを使って作成したものです。 

このプログラムでは、 GVRAM のデータを読むのに、第2章の拡張 PEEK 文を使って し、 
ます。810行でェラーが出る場合は、拡張 PEEK 文（アドレス E 000 H 〜の方）のプログラムを 
実行して下さい。 

まず、作成したいパターンの大きさを入力します。（横48、縦24が最大です）あとは、力一 
ソルをテンキーで操作してパターンを作ります。 

終わったら、しばらくたってデータが入っているアドレスが表示されますので、必要なら 
ばその範囲の データをセーブし ておいて下さい。 

N 88 DISK - BASIC の場合は、920行の先頭の’を除くと自動的にセーブされます。 


5IIL0JICIE 
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リスト 7-8 


100 f 

110 ’ Graphic Data Generator 
120 f 

130 CLEAR f &HDFFF 

140 CONSOLE 0,25,0,1 : WIDTH 80,25 
150 COLOR 7 

160 SCREEN 0，3 •• ROLL 197 : ROLL 3 : SCREEN 0,0 
170 DEFINT A-Z 
180 f 

190 INPUT ” INPUT MAX. X(dot) , MAX. Y(dot) M ^MAX. X P MAX- Y 
200 IF MAX.X<1OR MAX. X>48 THEN 190 
210 IF MAX-Y<1 OR MAX.Y>24 THEN 190 
220 f 

230 MAX. BX=(MAX. X-l)¥8 : MAX. BY=MAX. Y-l 
240 • 

250 CLS 

260 LOCATE 23,0 

270 FOR X=1 TO MAX. X 

280 PRINT HEXS CX MOD 10); 

290 NEXT X 

300 FOR Y=1 TO MAX- Y 

310 LOCATE 20,Y : PRINT USING 林： " ； Y; 

320 NEXT Y 

330 LINE (182, 7) 一 （ 183+MAX. X 木 8+MAX 。 Y 木 8) 。 7。 B 
340 CUR. X=23 : CUR. Y=1 
350 COL=7 

360 f - main loop - 

370 ホ MAIN 

380 LOCATE CUR.X f CUR. Y 
390 IN$=INPUTSCl) 

400 ON INSTRC” 24685 0” ， INS) GOSUB 木 DW, 木 LF, 木 RT\ 木 UP • 木 ST P 木 RS 
410 IF IN$=”E” OR IN$=”e” THEN 木 GN. END 

420 IF IN$=”C” OR INa=”c” THEN GOSUB 木 CH. CO し OR 

430 GOTO ホ MAIN 

440 ’- Curso1 move - 

450 ホ DW 

460 IF CUR.Y<MAX-Y THEN CUR-Y=CUR.Y+l 
470 RETURN 
480 ホ LF 

490 IF CUR.X>23 THEN CUR. X=CUR 。 X_1 

500 RETURN 
510 ホ RT 

520 IF CUR^ X<MAX.X+22 THEN CUR- X=CUR. X+l 
530 RETURN 
540 ホ UP 

550 IF CUR.Y>1 THEN CUR- Y=CUR. Y-l 

560 RETURN 
570 f 
580 木 ST 

590 PRINT ” 參 ”；： PSET CCUR.X-23,CUR- Y-l) ,COL 
600 RETURN 
610 ホ RS 

620 PRINT ” ”；： PSET (CUR.X-23,CUR. Y-l) p 0 
630 RETURN 

640 f - change color - 

650 ホ CH.COLOR 

660 LOCATE 0,20 : PRINT ” COLOR 7 ”； 

670 CL$=INPUTS (1) 

680 IF OR CL$>”7” THEN 670 
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880 

890 

900 

910 

920 

930 


690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


LOCATE 0,20 : PRINT ” ”； 

COL=VAL(CL$) 

C 〇し〇 R COL 

RETURN 

， - Gen. End - 

*GN. END 

LOCATE 0,20 : PRINT ” GEN.END” 

AD=&HE000 

POKE AD f MAX. BY+1 : AD=AD+1 
POKE AD f MAX. BX+1 : AD=AD+1 
FOR Y=0 TO MAX. BY 
FOR X=0 TO MAX. BX 

GV (0) =PEEK (&HC000+Y 木 80+X ， ，， 0 ，， ） 

GV(1)=FEEK (&HC000+Y 水 80+X, ，，ド） 

GV (2)=PEEK (&HC000+Y>K80+X f ”2 ”） 

FOR 1=0 TO 2 

POKE AD,GV(I): AD=AD+1 
NEXT I 
NEXT X 
NEXT Y 
CLS 

SCREEN ,3 

LOCATE 5,10 : PRINT "Used &HE000 一 &H”HEX$ (AD — 1) 
f BSAVE ” GRPDAT. bin” ， &HE000,AD-&HE000 
END 


7-4-5 咼速 ROLL 文 

漢字の出力はグラフィック画面に対して行なわれますので、テキスト画面のように自動的 
に スクロール するようなことはありません。そこで必要となつてくるのが ROLL 文です。 

ROLL 文はたいへん便利なコマンドですが、残念ながら N««DISK-BASIC でしか使うこと 
ができず、また処理速度も速いとはいえません。 

そこで、この節では、 N««-BASIC での高速 ROLL 機能を付加するプログラムを紹介します。 
リスト 7-9 

100 f 

110 ， SCROLL COMMAND for 640 x 400 do t mode 
120 ’ 

130 ’ DUMMY = USR (SCROLL. BYT) 

140 ^ 

150 DEFINT A - Z 
160 RESTORE ホ ML. DATA 
170 SADRS=VARPTR ⑽ ）+9 
180 ADRS=SADRS 
190 1 

200 ホ WRITE.DATA 
210 READ DATUMS 

220 IF DATUMS= ,, END ,1 THEN 水 FINISH 
230 POKE ADRS,VA し（ ” &H”+DATUM$) 

240 ADRS=ADRS+1 
250 GOTO 木 WRITE. DATA 
260 f 

270 ホ FINISH 

280 DEF USR=SADRS 

290 PRINT "Complete.” 

300 END 
310 f 

320 水 ML.DATA 


00000000 

01234567 

88888888 


115 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


上のプログラムを実行すると、あとは 

DUMMY = USR ( SCROLL . BYT ) 

で、グラフィック画面をスクロールさせることができます。 SCROLL . BYT は整数型で 
なければならず 

ROLL n >DUMMY = USR ( n *80) 

に対応し、引数を80の倍数以外にすると、斜めにスクロールさせたりすることも可能です。 

なお、この機械語プログラムはリロケータブルになっていますので、 O )00 H 番地より前 
であればメモリ上のどこにでも置けます。 

7-5 その他のグラフィック用 I / O ポート 

7-5-1 CRT のタイプのセンス 

PC -8801 mk II 前面の高解像度 CRT と標準 CRT の切り換えジャンパースイッチの設定が、 

どちらの状態になっているかを知ることができます。 

ポート 40 H ( IN ) 


7 

6 

5 

4 

3 

2 

1 


〇 

/I 










VRTC 

CDI 

EXTON 

DCD 

Sh 

_5 

HG 

* 

BUSY 

• 

1 :標準〇 RT -| 



0 :高解像度 CRT 」 

図7 -5 -A CRT のタイプのセンス 

BASIC では次のようにして判別できます。 

IF INP (& H 40) AND 2 THEN 標準 CRT 

ELSE 高解像度 CRT 

7-5-2 バックグラウンドカラー 

バックグラウンドカラーとは、グラフイック画面の地の色のことです。 

N ^ BASIC で制御するには、 COLOR 文を用し、ます。2番目のパラメータがバックグラウ 
ンドカラーになるわけですが、白黒モードとカラ—モードでは働きが違います。 （マニュア 
ルに記述されているのはカラーモードでのことです。）その違いを表にまとめておきます。 


1FA 3 1 
C 5 0 F C 

E 3 D 5 B 
3 D 5 c 1 

0 0 3 14 
8 B D E 5 

1 D 3 1 D 

2 E F D 5 

5 C 7 1 7 
E 5 6 C 6 

3 3 0 10 9 

E D c F c C 


9 3 
1 F 


6 0 
F 2 


F6FB 


0 5 C 7 c F 
c C 7 E 7 5 

0 5 E 3 1 3 
0 D F 0 E D 

1 5 0 3 B 0 
1 E 8 2 F B 


IX ii PQ rv 

E 1 F 5 E 


5 

E 


5 4 5 F 3 0 
E 4 E 5 D 0 

F D 5 3 0 G 

6 4 c D B 3 

6 2 1 7 D D 

6 4 c 7 E 5 

3 D 1 c D 3 
2 E E 5 5 D 

.D 

E 7 B 3 3 3 N 

7 B F D D F E 


0 0 0 0 0 0 0 
3 4 5 6 7 8 9 
3 3 3 3 3 3 3 
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バックグラウンドカラーの違し、 



白黒モード 

カラーモード 

パラメータの値 

カラーコード , 

パレット番号 

方 式 

ハードウエアによる 

ソフトウェアによる 


白黒モードでのバックグラウンドカラーは I / O ポート 52 H の 3 bit で制御されます。 


ポート 

52H (OUT) 





7 

6 

5 

4 

3 

2 

1 

0 

/ 

巳 GG 

1 1 _一 

巳 GR 

__ し 

巳 G 巳 
■■!■ ― 

/ 

0 

0 

0 



i — 

» ( 

r 

ノくックグラウンドカラー 

0 

0 

0 

0 

(黒） 

0 

0 

1 

1 

(青） 

〇 

1 

0 

2 

(赤） 

0 

1 

1 

3 

(紫） 

1 

0 

0 

4 

(緑） 

1 

0 

1 

5 

(水色） 

1 

1 

0 

6 

(黄） 

1 

1 

1 

7 

(白） 


図 7-5-B バックグラウンドカラーの制御 

カラーモードでのバックグラウンドカラーは、ソフトウェアによるものです。 COLOR 文 
の実行により、ワークエリア F 01 FH 番地にバックグラウンドカラーのパレット番号が書き 
込まれます。以後、 N 『 BASIC では、 CLS 文や PRESET 文を実行するときにこの値を参照 
して、このパレット番号で、画面をクリァしたり点を消したりします。 

7-5-3 画面の重ね合わせ 

画面のソースにはテキスト、 GVRAMO , GVRAM 1, GVRAM 2 とありますが、 CRT にど 

の画面を表示するのかを I / O ポートによって制御できます。ポートァドレスは 53 H です。 
このポートの使い方は 

①テキストモード（ポート 31 H のビット3 = 0 ) 

グラフィックは使用できませんので、 GODS , G 1 DS , G 2 DS は意味を持ちません。 
TXTDS は0にしておきます。 TXTDS を1にしますと、 CRT 上には文字を表示しません。 


② モノクログラフイツクモード （640 X 200) 

4つの画面ソースとも使用できますので、全てのビツトが意味をもちます。 

③ モノクログラフイツクモード （640 X 400) 

GVRAM 2 は使用しませんので、 G 2 DS 以外の3つのビットが意味をもちます。 


117 








④カラー グラフ ィックモード 

TXTDS のみ意味をもちます。カラーグラフィックは GODS , G 1 DS , G 2 DS にかかわら 
ず表示されます。 

ポート 53 H ( OUT ) 


7 6 5 4 3 2 10 



ビット X 

_ ifu •ソース 

〇 

1 

TXTDS 

テキスト1叫 lW 

衣示する 

表示しない 

GODS 

GVRAM 0 

衣示する 

ム;小しない 

G 1 DS 

GVRAM 1 

表ボする 

衣小•しない 

G 2 DS 

GVRAM 2 

表示する 

表示しない 


図 7-5- C 画面の重ね合わせ制御 

7-6 GET 文、 PUT 文 

N ««- BASIC の GET ， PUT 文はグラフィック画面に表示されているパターンを配列に読み 
込んだり、配列のデータをグラフィック画面に表示するための命令です。ここでは、 GET , 
PUT で使われるデータの形式や、 PUT 文の様々な表示方法を見ていきましょう。 

7-6-1 GET , PUT のデータ形式 

GET , PU 丁で使われる配列の大きさは、次の式で得られます。 

く添字の値〉= <必要なバイト数 〉 ¥N + <0 PTI 0 N BASE > + 1 …① 

く必要なバイト数> = <横のバイト数 >X< 縦のドット数 >XM + 4 …② 



整数型配列 

N =2 


白黒モード 

M 

N : 

単精度型配列 

N =4 

M : 




倍精度型配列 

N =8 


カラーモード 

M 


式②の4という数字は、縦横のドット数をそれぞれ2バイトで表わすためのものです。 
GET , PUT で使われる配列のデータは、次のような形になっています。 
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横の 縦の 



データ 



、ヘン I 、 数 ドット 数 データ 1 B データ 1 B データ 1 R テ'-夕 2 R データ 1 G データ ‘2 G 


し 夕 


夕 3 B データ 4 B 


『11モード 
カラーモード 


8ドット 8ドット 



4ドツト 


(12 ドット X 5 ドットのパターン） 


図7 - 6 -A GET ， PUT の配列内データ形式 


まず最初に、4バイトのデータが、縦横のドット数を表わします。 

次に、グラフィックパターンのデータが、横8ドット、縦1ドットを1つの単位として、白 
黒 モードでは 1バイト、カラー モードでは 3バイトのデータとなります。 

したがって、上の例では、データのバイト数として、白黒モードでは14バイト、カラーモー 
ドでは、34バイトが必要になるわけです。 

また、このデータと配列の対応は、型や次元数によって次のようになります。 


(OPTION BASE 0) 


A %( X ) 

A %(2， X ) 
A ! ( X ) 
Att ( X ) 


2 バイト 2 バイト1バイト 



…整数型 

•••整数型2次元 

…単精度型 

•••倍精度型 


図7 - 6 -B GET ， PUT データと配列との関係 
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実際の例で見てみましょう。 

右のようなパターンが、画面左上に表示されている 
とします。 （640 X 200 ドット、白黒モード）これを整数 
型配列 A %に GET します。 

リスト 7-10 


clear 

Ok 

dim a% (5) 

Ok 

ge t (0, 0) - （ 7, 7) , a% 
Ok 


0 7 



さて、ここで配列 A % の値を PRINT してもよいのですが、テクノウ的に、配列が格納さ 
れているエリアを直接見てみましょう。 


リスト 7-11 

print hex$ (varptr (a%(0))) 

B2BA 

Ok 

mon 横のドット数 


縦のドット数 


h 〕 db2ba| 

,b2c5 

データ 1 

データ 8 

B2BA [08 

001 08 00 

18 24 42 

7E 42 42 42 00 



A%(0) A%( 1 ) 

A%(2) 

A%( 5 ) 


7-6-2 複数パターンを1つの配列に 

N ^ BASIC の GET ， PUT では、配列の要素を指定することで、複数のパターンを一つの 
配列に格納しておくことができます。 

これは異なったパターンを表示するときでも、要素の値を変数で持つことによって、1つ 
の文ですますことができる、という利点があります。 

ただし、このとき一次元の配列を用いると、要素の計算や大きさを決めるのがめんどうで 
す。そこで複数パターンのための2次元配列の使い方と、その応用例を紹介しましょう。 

•配列宣言 （OPTION BASE 0) 

DIM く変数名 >(< 最も大きなパターンの添字の最大値>、<パターンの数 >- 1 ) 
• GET , PUT での使い方 

<変数名>(0，<パターン番号 >) 

※GET (0，0)-(7， 7) PUT (0， 3) など 
次の例はグラフィック画面に数字を PUT するサブルーチンです。 

数字のデータは配列 ND に格納されており、 NUM を与えることで、0から9までの数字 
を PUT することができるようになっています。 

リスト 7-12 
100 * 

110 ’- PUT number demo - 

120 ’ 

130 SCREEN 0,2 : ROLL 197 : ROLL 3 : SCREEN 1,0 
140 DEFINT A - Z 
150 DIM ND (5,9) 
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160 FOR 1=0 TO 9 
170 FOR J=0 TO 5 

180 READ DAS : ND (J, I)=VALr&H M +DAS) 

190 NEXT J 
200 NEXT I 
210 ’ 

220 ホ NUM.DATA 

230 DATA 8,8,423C,5A46,4262,3C 
240 DATA 8,8,1808, 0828,0808, 3E 
250 DATA 8,8,423C,0C02, 4030, 7E 
260 DATA 8,8,423C,1C02,4202,3C 
270 DATA 8,8,0C04,2414,047E,04 
280 DATA 8,8,407E, 0478,4402, 38 
290 DATA 8,8,201C,7C40,4242,3C 
300 DATA 8, 8,427E, 0804, 1010, 10 

310 DATA 8,8,423C,3C42, 4242, 3C 
320 DATA 8,8,423C,3E42, 0402, 38 

， - test - 

340 FOR NUM=0 TO 9 
350 GX=NUM 冰 60+40 
360 GY=90 

370 GOSUB 木 NUM.PUT 
380 NEXT 
390 END 

400 ’- number put sub - 

410 *NUM. PUT 

420 PUT (GX,GY) ， ND(0, NUM) 

430 RETURN 


121 




第 8 章漢字 ROM と漢字 BASIC 


PC-8801mkll には 64K ワード X16 ビットの漢字 ROM が標準実装されています。これは 
JIS 第 1 水準の漢字及び非漢字約 700 種類の文字用のキャラクタジェネレータで、これを使っ 
てグラフィック画面に漢字を表示することができます。 N««-BASIC では PUT KANjr 文を用 
いて表示しますが、これは たいへん 使いにくくかつ遅いので、簡単に漢字を表示できる命令 

を紹介します。また、漢字出力時にかかせない ROLL 文の高速版が p .115(7-4-5 “速 ROLL 
文）にあります。 

また PRINT 文や REM 文中に漢字が使える漢字 BASIC が発売されています。これを使う 
と英数字と同じように漢字が出力できます。 

8-1 I / O ポ-卜 

漢字 ROM は I/O ポートを通してアクセスされます。具体的な使い方は後で述べます。 


E8H 

I 

OUT 

漢字 ROM アドレス の指定（下位 8 ビット） 

- ——— _ 

IN 

漢字フォントデータの読み出し（下位 8 ビット） 

C Q LJ 

OUT 

漢字 ROM アドレスの 指定（上位 8 ビット） 

Liy n 

IN 

>■ — ■ »( 

漢字フォントデータの読み出し（上位 8 ビット） 

EAH 

OUT 

漢字 ROM の読み出し開始 

データは 

E 巳 H 

OUT 

漢字 ROM の読み出し終了 

何でもよい 


図 8-1-A 漢字 ROM I/O ポ-卜 


8-2 漢字フォントのマッピング 

漢字フォントのフォーマットには 3 つの種類があります0 

8-2-1 全角文字 （漢字 ROM アドレス 120 0H 〜 FFFFH) 

1 つの文字デ-夕は 16X16 ドットからなります。 1 ワード 16 ビットで 16 ワード分です。例 
として漢字 ROM アドレス 5410H 〜 541FH の文字の「福」を示します。 


123 




JO ド 4A21H 


; 美字 ROM アドレス 



IN E9H IN E8H 
で読み出される で読み出される 


5410 H 
5411H 


541EH 

541FH 


図 8-2- A 全角文字のマッピング例 


8-2-2 半角文字 （漢字 ROM アドレス000 0 H 〜 07 FFH ) 

半角文字は 8 X 16 ドットで、8ワード （ 1ワードが2行分）からなります。例として漢字 
ROM アドレス 02 C 0 H 〜 02 C 7 H の文字「 X 」はこうなります。 


JIS コード〇〇 58H 

漢字 ROM アドレス 

LOW } 2C0H 


HIGH \ 
LOW J 


2C7H 



HIGH …… IN E9H で読み出される 
LOW …… IN E8H で読み出される 


図 8-2- B 半角文字のマッピング例 


8-2-3 1/4角文字 （漢字 ROM アドレス 800 H 〜 BFFH ) 

1/4角文字は、 8 X 8 ドットで表示されます。半角文字の上半分と考えればよく、4ワー 
ドからなります。例として漢字 ROM アドレス 0964 H 〜 0967 H の文字 「 YI を示します。 


JIS コー ド 0159H 

; 荑字 ROM アドレス 



H ; } 獅 


LOW } 967H 


HIGH …… IN E9H で読み出される 
LOW …… IN E8H で読み出される 


1/4角文字のマッピング例 


図 8-2 -C 
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8-3 漢字 JIS コ-ド 

漢字 ROM アドレスと漢字 JIS コードの変換方法を述べましょう。漢字 JIS コードは 
BASIC の PUT KANJI 命令で使用するコードで、漢字 ROM アドレスは漢字 ROM を読むと 
きに使用します。 

漢字 ROM は、アドレスによって下のように4つに分けられます。 


漢字 ROM アドレス 

データ 

000 0 H 〜 07 FFH 

080 0 H 〜 11 FFH 

120 0 H 〜 3 FFFH 

400 0 H 〜 FFFFH 

半角文字 

1/4 角文字 

全角文字（非漢字） 

全角文字（漢字） 


漢字 ROM アドレスとデータの内容 

①半角文字の変換 

アドレス 000 0 H 〜 07 FFH — JIS コード 002 0 H 〜 00 FTH 



(例） 

0058 H (半角文字 “ X ”) 


〇 


02 C 0 H -02 C 7 H 


図 8-3-A 半角文字の変換 


②1/4角文字の変換 


アドレス 0800 H 〜 0 BFFH — JIS コード 0100 H -01 FFH 



(例） 

0159 H(M 角文字“丫”) 


0964 H 〜 0967 H 


図 8-3-B 1/ 4 角文字の変換 
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• KANJI JIS Code => KANJI ROM Address 

9 

*INP.KCODE 

INPUT ” KANJI JIS Code ? &H” ， KC$ 

K.COD=VAL C &H” +KC$) 

IF K.COD>= &H20 AND K.COD<= &HFF THEN 本 H.CHR 

IF K. COD>= &H100 AND K. COD<= &H1FF THEN *F. CHR 

IF K.COD>=&H2120 AND K. COD<=&H277F THEN *N.KNJ 

IF K.COD>=&H3020 AND K. COD<=&H4F5F THEN 木 KNJ 

GOTO 木 INP.KCODE 

t 

CHR 

K. ADR=K. COD 木 8 


③全角文字(非漢字）の変換 
アドレス120 0 H 〜 3 FFFH 


JIS コード 2120 H 〜 277 FH 


漢字」 IS コード 


(例） 

235 AH (英字“ Z”) 


15 


漢字 ROM アドレス 


X △ △ △ △ 27 A 0 H 〜 27 AFH 


15 


△ △ 0000 ( 2 ) ~ 111 1 ( 2 ) ( 〇〜1 5 ) 


図 8-3- C 全角文字(非漢字)の変換 


④全角文字(漢字)の変換 
アドレス 4000 H-FFFFH 


JIS コード302 0 H 〜 4 F 5 FH 


菓字 JIS コード 


(例） 

4 A 21 H ( 漢字 “ 福 ”) 


15 


A 巳 


漢字 ROM アドレス 


X X 


X A A A A 5410 H 〜 541 FH 


15 


AAAA : 0000 ( 2)-1 1 1 1 ( 2 ) ( 〇〜 15 ) 


図 8-3- D 全角文字(漢字)の変換 


漢字 ROM アドレスから JIS コードを求める場合、アドレスのビット 13( C ) によって JIS コ 
ドのビット14， 13( A ， B ) を決めます。 


C = 0のとき 
C = 1のとき 


AB = 10 
AB = 01 


と割り当てます。 

このように、漢字 JIS コードから漢字 ROM アドレスに変換するのは面倒な作業です。そ 
こで BASIC で書いた変換プログラムをあげておきます。 

リスト 8-1 


0 0 0 0 
0 12 3 


0 0 0 0 
4 5 6 7 


0 0 0 0 0 0 
8 9 0 12 3 
112 2 2 2 
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240 K.BYT=8 
250 GOTO 木 PRN. ADR 
260 • 

270 *F.CHR 

280 K.ADR= (K.COD - &H100)*4+&H800 

290 K. BYT=4 

300 GOTO *PRN. ADR 

310 f 

320 本 N.KNJ 

330 K1=CK.COD AND &H60)*&H80 

340 K2=CK. COD AND &H700) 本 2 

350 K3= (K.COD AND &H1F) 木 &H10 

360 K.ADR=K1+K2+K3 

370 K.BYT=16 

380 GOTO 木 PRN. ADR 

390 f 

400 *KNJ 

410 K1=(K. COD AND &H60) 氺 &H200 

420 K2=(K. COD AND &H1F00)*2 

430 K3= (K.COD AND &H1F) 木 &H10 

440 K.ADR=K1+K2+K3 
450 K.BYT=16 
460 f 

470 ホ PRN. ADR 

480 PRINT ”- ，， 

490 PRINT KAN J I JIS CODE : &H” ； HEX$ (K. COD) 

500 PRINT " KAN J I ROM ADRS : &H ，，； HEXS (K. ADR) ” - &H” ； HEXS (K. ADR+K. BYT - 1) 

510 PRINT ，， -” 

520 • 

530 GOTO 木 INP.KCODE 

8-4 漢字 ROM からのデ-夕の読み出し方 

漢字 ROM からのデータの読み出しには、 I / O ポートによって、漢字 ROM をアクセス 
します。普通は PUT KANJI 命令で表示しますから漢字 ROM を読む必要はないのですが、 
機械語で漢字を出力したり、漢字を大きく表示したりする場合などには漢字 ROM から漢字 
フォントを読み出さなくてはなりません。 

漢字 ROM の1ワードを読み出すアルゴリズムは次のようになります。 

① 漢字 ROM アドレスの下位8ビットをセットします 。 （OUT 0 E 8 H ) 

② 漢字 ROM アドレスの上位8ビットをセットします 。 （OUT 0 E 9 H ) 

③ ROM へのアクセスを開始します。データは何でもかまいません 。 （OUT 0 EAH ) 

④ 時間待ちをします。 （ NOP 2 回程度。 BASIC では必要ありません。） 

⑤ フォント 右側の8ビットデータを読み出します 。 （IN 0 E 8 H ) 

⑥ フォン ト左側の8ビットデータを読み出します 。 （IN 0 E 9 H ) 

⑦ ROM へのアクセスを終了します。データは何でもかまいません 。 （OUT 0 EBH ) 
①と②は順番はどちらでもかまいません。⑤と⑥も同様です。また、漢字 ROM をアクセ 

スするプログラムでは、初めに OUT 0 EBH ( 漢字 ROM のアクセス終了命令 ） を行なってお 
いた方がよいでしよう。 
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410 f 

420 SPRINT. PAT 

430 PRINT HEX$CKA) W H s w s 

440 DAT=L. DAT : GOSUB SPRINT-DOT 

450 DAT=R. DAT s GOSUB ホ PRINT.DOT 

460 PRINT 

470 RETURN 

480 ホ PRINT. DOT 

490 FOR B=7 TO 0 STEP -1 

500 IF DAT AND (2 A B) THEN PRINT s ELSE PRINT " 
510 NEXT B 
520 RETURN 


380 

390 

395 

400 


FOR KA=K.ADRS TO K.ADRS+15 
KA.L=PEEKCVARPTRCKA)) 

KA.H=PEEKCVARPTR(KA)+1) 

OUT &HE8 f KA. L 
OUT &HE9,KA，H 
OUT &HEA, 0 
し DAT=INPC&HE9) 

R.DAT=INP(&HE8) 

OUT &HEB,0 
GOSUB ホ PRINT. PAT 

NEXT KA 

f 

END 

p 

*KC. TO- KA ゾ Get KAN J 卜 RONS Address from KANJI Code 
KA1=CK- CODE AND &H60) 本 &H2 
KA2= OPCODE AND &H1F00) ホ 2 
KA3=CK- CODE AND &H1F)*&H10 
K. ADRS=KA2+KA3 

POKE VARPTR(K- ADRS)+1 f PEEK CVARPTR (K. ADRS)+1) OR KA1 

RETURN 


8-4-1 BASIC で 

まずは、先のアルゴリズムに従って、 BASIC による漢字フォントデータ読み出しプログ 
ラムを作ってみます。 

このプログラムは、漢字 JIS コードを入力するとそのデータを読み出し、画面上に表示す 
ると いう ものです。漢字コードは、 3021 H 〜 4 F 53 H と制限が ついてい ますが、半角文字、1/4 
角文字に ついても 同じような方式でデータを読み出すことが出来ます。 

リスト 8-2 


100 ^ 

110 f Read KANJI Character Font 
120 • 

130 DEFINT A-Z 
140 WIDTH 40,25 
150 f 

160 INPUT "KANJI Code (&H3021 - &H4F53) 99 iK. CODE 
170 IF K.CODE<&H 3021 OR K 。 CODE>&H4F53 THEN 160 
180 9 

190 GOSUB ホ KC.TO.KA 
200 f 


0 0 0 0 0 0 0 0 0 
123456789 
22222222233333333 


00000000 

01234567 
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170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


• ( Using N88-BASIC ROM Routine ) 

DEFINT A-Z 

t 

DEF USR=&HF2E0 

FOR I=&HF2E0 TO &HF2F2 

READ DS : POKE I, VAL ( ，， &H”+D$) 

NEXT 

DATA 7E,23,66,6f,EB f F3,3E,FE,D3,71,CD,61,72,3E,FF,D3 
DATA 71,FB,C9 

f 

DT. TOP=&HE9B9 

t 

INPUT ” KANJI JIS Code ? &H”，KCS 
KC=VAL r &H”+KC$) 

9 

DUM=USRCKC) 

t 

PX=PEEKCDT. TOP) : PY=PEEKCDT. TOP+2) 

DT. TOP=DT. TOP+3 
FOR 1=1 TO (PX/8) 本 PY 

PRINT RIGHTS (” 0”+HEX$ (PEEK(DT. TOP+I)) , 2 )，，”； 

NEXT I 


8-4-2 機械語で （ ROM 内ルーチンを使って） 

N 88 - BASIC では、漢字を出力することができるわけですから、そのためのルーチンが 
ROM 内にあるはずです。それを使わない手はないというので、ここでは ROM ルーチンを 
使って漢字 ROM のデータを読み出してみましょう。 

このルーチンは、 R 0 M 5 に納められており、次のように使います。 

(START ) 

DE 一漢字 JIS コード ] 

R0M3 をアクティブにする 
CALL 7261 H 
[ メイン ROM をアクティブにする 
(END ) 

図8 -5- A 漢字 ROM デ-夕読み出しルーチン 

実は、 この ルーチンは 、 PUT KANJI の一部で、余分な処理まで行なってしまいますが、 
実用上は問題ありません。なお、このワークエリア （ E 9 B 9 H 〜）は、行入カバッファも兼ね 
ていますので、 ROM ルーチンから戻った後、 INPUT などを実行すると、読み出したデ ー 
夕は消されてしまいますから、読み出した後は別のところへ移しておく方が安全です。 

次のプログラムは、漢字 コー ドを入力すると、そのデータを16進で出力するというもので、 

半角文字、1/4角文字でも使えます。 

リスト 8-3 

100 * 

110 f Read KANJI Character Font 


※実行後データは次の形でワーク エリ ア上に格納されている 


E 9 B 9 H 



横のドット数 
(8 または 10 H ) 




漢字の データ 
(8,16,32バイト） 


縦のドット数 
(8 または 10 H ) 


0 0 0 0 0 
2 3 4 5 6 

IX IX 1M lx IX 
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8-5 高速漢字 PUT 文 

この章の初めで述べたとおり、漢字を PUT KANJI で一文字ずつ出していくのはたいへん 
です。漢字 BASIC を使えば PRINT 文中に漢字を使えるので一番よいのですが、そこまでい 
かなくても JIS コード列を文字列として持って、それを一度に PUT できればだいぶ楽になり 
ます。 

ここでは 

POLL < JIS コード文字列> 

で全角の文字列を任意の場所（ただし横方向は8ドットごと）に PUT できるようなプログラ 
ムを紹介します。 

<JIS コード文字列>というのは漢字 JIS コードを上位、下位の順にならベていったもの 
で、たとえば「福岡市」という漢字列は 


CHR $(& H 4 A ) + CHR $(& H 21) + CHR $(& H 32) + CHR $(& H 2 C ) + CHR $(& H 3 B ) + CHR $(& H 54) 

福 岡 市 

ということになりますが、これではあんまりなので「第11章プリンタ」で紹介する漢字キヤ 
ラクタ対応表(完全な表は付録にあります）を使うと 

，’ J ! 2， ； T ” 

となり、あいかわらずわけがわかりませんが、たいへん短く扱いやすくなります。 

つぎのプログラムを実行してください。漢字列を PUT する POLL 文ができあがります。 

リスト 8-4 


100 • 

110 ’ KANJI STRING PUT 
120 f 

130 DEFINT A-Z 

140 FOR AD=&H866A TO &H8729 

150 READ D$ : POKE AD,VAL (” &H”+D$) 

160 NEXT 

170 POKE &HEEA7,&HC3 : POKE &HEEA8,&H6A : POKE &HEEA9,&H86 
180 END 


190 f 

200 f 866A-86E9 


210 DATA 00,CD,D3,11,E5,CD,C9,56,7E,F5,23,5E,23,56,D5, 
220 DATA EB,CD,EB, 86, E5,DD,El,El,FI,FE,02,38,10,3D,3D ， 


230 DATA 
240 DATA 
250 DATA 
260 DATA 
270 DATA 
280 DATA 


7E,EG, 7F, 57, 23, 7E, EG, 7F, 5F, 23,E5,18,02,El,C9, 
7C,FE,30,30, 0C, 87,EG, 0E, 57,7D, 0F, E6,30,B2, 57, 
0A, E6,IF, 87, 57, 7D, E6, 60, 87, B2, 57, 7D, 87, 87, 87, 
5F, 7A, CE, 00, 57, 06,10,DD, E5,El,C5,7B,D3,E8,7A, 
E9, 13, D3,EA,00,00,DB,E9,CD,0E,87,23,DB,E8,CD, 
87, D3, EB, 01,4F ， 00, 09,Cl,10,E0,DD,23,DD,23,C3, 


290 f 86EA — 8729 


D3 

F5 

EB 

18 

87 

D3 

0E 

81 


300 DATA 86,2A,29,F0,29,29,29,44,4D,29,29,09,29,44,4D,2A 

310 DATA 27,F0 ， CB,3C,CB,1D,CB,3C,CB,1D,CB,3C,CB,ID,09,01 
320 DATA 00,C0,09,C9,D5,57,0E,5C,3A,IE,F0,06, 03, F3,ED ， 79 
330 DATA 0F, 30, 03, 72,18, 02, 36,00,0C,10,F3,D3,5F,FB,Dl ， C9 
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この POLL 文はカラーグラフィックモードで動作し、漢字列を PUT する位置は LP(Last 
Referenced Point ) で指定します。つまり、（80,10 0) に表示したいときは POINT (80, 10 0) と 
行なつてから P 0 LL 文を実行します。 X 方向の位置は8の倍数でなければなりません。なお、 
改行やスクロールは行なわれませんし、 LP の範囲チェックも行なっていませんので注意し 


てください。 



図 8-6- A 漢字列の表示位置 

例として、（80、10 0) にパレット6で「福岡市」と PUT するには 

10 POINT (80，100) 

20 COLOR ，，， 6 
30 POLL ’’ J ! 2， ； T ” 

とします。バックグラウンドカラーは使用できません。 

8-6 漢字 BASIC 


PC -8801 mkII 用の漢字 BASIC としては、 NEC から販売されている 「1 NU -漢字 BASIC 」 
の他に、システムソフトから販売（東海クリエイト開発）されている「8801漢字 BASIC 」 が 
あります。どちらも機能としては同じようなもの（単漢字変換）ですが、 ここでは 表示が高速 
な8801漢字 BASIC を例にとって説明します。この漢字 BASIC の特徴は次のとおりです。 

① PRINT 文、 DATA 文、 REM 文、その他文字列の中に自由に日本語が組み込める。 

② 必要な部分だけをグラフィック表示するために表示が高速。 

③ 1/4角が表示できる。（プリンタには出力できない） 

④ すべてオンメモリで処理するため、辞書ファイルのアクセスがなく、すべてのドライブ 
が自由に使える。 

⑤ 94文字の外字が使える。 

⑥ 漢字処理のためのエリアの減少は、テキスト RAM の9 K バイトだけですむ。 

⑦ メモリ マツ プが N 88 DISK - BASIC とほぼ同じであるため、 ‘ DISK - BASIC 用の多くの 
機械語プログラムが使える。拡張命令パッケージ （ CMD シリーズ）も動くようです。 
(メーカーは保証していませんが。） 

⑧ 入力時に書式制御ができる。事務処理プログラムで重宝します。 

問題点としては、 

① 専用高解像度ディスプレイでないと使えない。 

② SCREEN 0と1が使えない。 

③ REM 文の代わりに ，（アポストロフィ ー）を使うとそ こでは 一部の漢字が使えない。 

④ 漢字に新しい読みをつけられない。 
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⑤外字で 24 X 24 ドットのものが作れない。 （24 ピンプリンタ出力時に問題となる。) 
があります。 

8-6-1 メモ 1 J マップ 


FFFF 


8000 

7 FFF 


0000 


メイン RAM 


ディスクコード 


Nss-BASIC 

ROM 


0000 


GVRAM 0 


GVRAM 1 


GVRAM 2 

表示 

1 

表示 


ワーク 


メインルーチン 
5000- 

テキスト 

RAM 


ROM 3 


図 8-6 -A 8801漢字 BASIC メモリマップ 

このようにテキスト RAM は9 K バイト減少しますが、メイン RAM のマップは N 的 DISK - 
BASIC とほ ぼ同じです。 

8-6-2 日本語文字列の内部表現 

日本語文字列は1文字が2バイトで表わされ、文字列の両端を7 FH で囲んだ形で格納さ 
れています。日本語文字のコードは JIS コードを基本としていますが、少し変更されていま 
す。 

① 全角文字 

JIS コードの上位、下位バイトそれぞれの最上位ビットを1にしたものを上位、下位 
の順に格納されています。 

② 半角文字と1/4角文字 

半角文字の JIS コードは002 0 H 〜 00 FFH で、1/4角文字は010 0 H 〜 01 FFH です。どち 
らも同じく下図のように変換されたあと、上位、下位の順に格納されています。 


JIS コード 

0 0 0 0 0 

0 0 

XXX 

X X X X X X 


15 

/ 

7 

0 

内部 コード 

1 0 0 0 0 

X X 

X 10 

X X X X X X 


15 〇 


図 8-6- B 半角 • 1/4角文字の内部コードへの変換 
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水 MOJI. TO. J IS 

JIS%=0 : ZP%=VARPTR CJIS%) 

IF ASCCMJSX>&H7F OR LEN CMJSX4 THEN RETURN 
POKE ZP%,ASC(MIDS(MJ$ ， 3,1)) AND &H7F 
POKE ZP%+1,ASC(MIDS (MJ$,2, 1)) AND &H7F 
IF JIS%>&H 2020 THEN RETURN 

POKE ZP%, ((PEEK CZP%+1)AND 3)*&H 4 0) OR PEEK(ZP%) 
POKE ZP% + 1,PEEK CZP% + 1)¥4 
RETURN 


たとえば”日本語表示 JIS コート〃”という日本語文字列は 
7 F C 6 FC CBDC B 8 EC C 9 BD BCA 8 818 A 8189 8193 82 BA 82 B 0 8384 839 E 7 F 
KIN 日本語 表示 J I S コー ト 〃 KOUT 
となります。 

もう少し詳しくみてみましょう。普通の文字列と日本語文字列が混ざったときには次のよ 
うになります。 

41 42 7 F B 4 Cl BB FA 7 F 43 44 

A B KIN 漢 字 KOUT C D 

また、日本語文字列どうしを結合させたときは、間の 7 F は自動的に取り除かれます。 

7 7 F + 7 7 F — 7 F 福岡市中央区7 F 

( 8バイト） （ 8バイト） （14 バイト） 

したがって文字列が日本語を含む場合、 LEN ( A $ + B $) が LEN ( A $)+ LEN ( B $) よりも 
小さくなる場合があります。 

8-7-3 日本語文字列の処理 

このように日本語文字列は普通の文字列を扱う場合に比べて複雑になっていますし、日本 
語も JIS コードそのものが入っているわけではありませんから、その変換も必要です。 

そこで BASIC で処理する方法の例をいくつかあげてみます。 

① JIS コードを日本語文字列に変換する。 

整数型変数 JIS にはいっている JIS コードを1文字の日本語文字列 MJ $ に変換するサブ 
ルーチンです。変数 JIS には正しい JIS コードが入っていなければなりません。 

リスト 8-5 

100 ホ JIS.TO. MOJI 

110 ZP%=VARFTR CJIS%) : MJS=CHI^ (&H7F) 

120 IF JIS%<&H 2020 THEN 150 

130 MJ$=MJ$+CHR$ (PEEKCZP%+1) OR &H80)+CHR$ (PEEK CZP%) OR &H80)+MJS 
140 RETURN 

150 IF JIS%<&H20 OR JIS%>=&H200 THEN 190 

160 MJ$=MJ$+CHR$((PEEK (ZP%+1)*4+PEEK CZP%)¥&H4 0) OR &H80) 

170 MJ$=MJ$+CMRS((PEEKCZP%) AND &H3F) OR &H80)+CHR$ (&H7F) 

180 RETURN 

190 = ，，” : RETURN 

② 日本語文字列を jis コー ドに変換する。 

今度は逆に、日本語文字列 MJ $ の最初の1文字を JIS コードに変換して、整数型変数 JIS に 
入れます。 MJ $ は正しい日本語文字列でなければなりません。 

リスト 8-6 


000000000 
012345678 
111111111 
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③ 普通の文字 （1 バイト系）を日本語文字 （ 2バイト系）に変換する。 

これは処理速度の点からいっても、表を用意するのがよさそうです。つまり、1バイト系 
文字256種に対して、それぞれに対応する2バイト系文字を用意しておいて、それをみなが 
ら変換するという方法です。 BASIC で行なう場合、最も簡単なのは、256の大きさを持った 
文字型配列を用意し、あらかじめ各要素にキャラクタコ-ド 00 H 〜 FFH に対応する日本語文 
字を入れておいて、変換したい1バイト系文字のキャラクタコードを添字として使って、配 
列から日本語文字を取り出すという方法です。 

④ 日本語文字 （2 バイト系）を普通の文字 （ 1バイト系）に変換する 

これ も③と 同様な表を用意して、その中から変換したい2バイ ト 系文字を捜し出し、それ 
が何番目の要素であるかを数え、それを CHR $() にかければ、1バイ ト 系の文字が得られま 
す。 

これには SEARCH 文が最適です。 SEARCH 文では整数型配列しか使えませんが、日本語 
文字の両端の CHR $(& H 7 F ) をはずせば、残りは2バイトになり、 CVI () にかけて整数型配 
列に格納できます。この整数型配列は③でも使えます（取り出した要素を MKI $ () にかけた 
あとで、前後に CHR $(& H 7 F ) を付け加えれば日本語文字になる）ので、この整数型配列を 
使った方法がよいでしょう。 

③、④に共通するサンプルプログラムとして、1バイト系を2バイト系に変換し、それを 
また1バイト系に変換するプログラムを紹介します。サブルーチン* MJ 1. TO . MJ 2 で1 
バイト系を2バイト系に変換し、 * MJ 2. T 0. MJ 1 で2バイト系を1バイト系に変換します。 

リスト 8-7 


\m rkm 

110 REM 1 バイト系 <--> 2 バイト系 変換 サンプル 

120 REM 
130 1 

140 REM - 変換表の初期化 

150 DEFINT A - Z 
1B0 DIM AKCNV (255) 

170 FOR 1=0 TO 255 
180 READ D 

190 IF D AND &HFF THEN D=D OR &H8080 
200 AKCNV (i)=D 

210 NEXT 
220 ’ 

230 REM - メイン処理 

240 FOR 1=0 TO10 

250 MJ 1$=CHR$ (RND>K216 + 32) 

260 GOSUB 木 MJ1.T0.MJ2 

270 PRINT MJ1$” — ” MJ2$; 

280 GOSUB 木 MJ2. TO. MJ 1 

290 PRINT ” f, MJ 1$ 

300 NEXT 
310 END 
320 ’ 

330 REM - 変換 サブルーチン 

340 ’ 

350 木 MJ 1,TO. MJ2 

360 MJ2=AKCNV (ASC(MJ1$)) 

370 MJ2$=CHR$ (&H7F)+MKI$ (MJ2)+CHR$(&H7F) 
380 RETURN 
390 1 

400 木 MJ2. TO. MJ 1 

410 MJ2=CVI (MID$(MJ2$,2, 2)) 
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700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 


MJ1=SEARCH (AKCNV f MJ2) 

IF MJ1<0 THEN MJl$= nM : RETURN 
MJ1$=CHR$(MJ1) 

RETURN 

t 

REM - 変換表データ 

DATA &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322 

DATA &H2322, &H2322, &H0A00, &H2322, &H2322, &H0D00, &H2322, &H2322 

DATA &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322 

DATA &H2322, &H2322, &H2322, &H1B00, &H2A22, &H2B22, &H2C22, &H2D22 

DATA &H2121, &H2A21, &H4921, &H7421, &H7021, &H7321, &H7521, &H4721 

DATA &H4A21, &H4B21, &H7621, &H5C21, &H2421, &H5D21, &H2521, &H3F21 

DATA &H3023, &H3123, &H3223, &H3323, &H3423, &H3523, &H3623, &H3723 

DATA &H3823, &H3923, &H2721, &H2821, &H6321, &H6121, &H6421, &H2921 

DATA &H7721, &H4123, &H4223, &H4323, &H4423, &H4523, &H4623, &H4723 

DATA &H4823, &H4923, &H4A23, &H4B23, &H4C23, &H4D23, &H4E23, &H4F23 

DATA &H5023, &H5123, &H5223, &H5323, &H5423, &H5523, &H5623, &H5723 

DATA &H5823, &H5923, &H5A23, &H4E21, &H6F21, &H4F21, &H2322, &H3221 

DATA &H2322, &H6123, &H6223, &H6323, &H6423, &H6523, &H6623, &H6723 

DATA &H6823, &H6923, &H6A23, &H6B23, &H6C23, &H6D23, &H6E23, &H6F23 

DATA &H7023, &H7123, &H7223, &H7323, &H7423, &H7523, &H7B23, &H7723 

DATA &H7823, &H7923, &H7A23, &H5021, &H4321, &H5121, &H4121, &H2322 

DATA &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322 

DATA &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322 

DATA &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322 

DATA &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322 

DATA &H2322, &H2321, &H5621 ， &H5721, &H2221, &H2621, &H7225 ， &H2125 

DATA &H2325, &H2525, &H2725, &H2925, &H6325, &H6525, &H6725, &H4325 

DATA &H3C21, &H2225, &H2425, &H2625, &H2825, &H2A25, &H2B25, &H2D25 

DATA &H2F25, &H3125, &H3325, &H3525, &H3725, &H3925, &H3B25, &H3D25 

DATA &H3F25, &H 412 5, &H4425, &H4625, &H4825, &H4A25, &H4B25, &H4C25 

DATA &H4D25, &H4E25, &H4F25, &H5225, &H5525, &H5825, &H5B25, &H5E25 

DATA &H5F25, &H6025, &H6125, &H6225, &H6425, &H6625, &H6825, &H6925 

DATA &H6A25, &H6B25, &H6C25, &H6D25, &H6F25, &H7325, &H2B21, &H2C21 

DATA &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322, &H2322 

DATA &H2322, &H2322, &H2322, &H2322, &H7C21, &H7B21, &H2322, &H2322 

DATA &H2322, &H5F31, &H2F47, &H6E37, &H7C46, &H7E3B, &H2C4A, &H4349 

DATA &H2322, &H2322, &H2322, &H 232 2, &H2322, &H2322, &H2322, &H2322 


0 0 
8 9 
6 6 
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第 9 章フロッ ピーデ イスク 


9-1 はじめに 


この文章は N 88 DISK - BASIC の DISK に関する部分について述べてありますが、その前に 
おことわりしておかなければならないことがあります。 

① 本書で述べる N 88 DISK - BASIC は、システム起動時に次のように表示されるものです。 

Disk version [Aug 19, 1983] 

How many nles (0-15) : 

これ以前の日付のバージヨン（旧 PC -8801 用）ではアドレスが一部異なる場合があります。 

② 用語の問題 

•両面ディスクの場合、表裏の2つのトラックを合わせてシリンダと呼ぶことがあります 
が、本章（の本文）では使用していません。 

•この章では、次のものを同義語として使っています。 

フロッピーディスクの同義語：ディスク、ディスケット 
ディスクドライブの同義語：ドライブ 
• トラック番号が示すもの 

トラック番号が示すものには2種類あります。ひとつは BASIC レベルで使われてい 
る考え方で、あるトラックを示すのに、サーフヱス番号とトラック番号を使うもので、 

トラック番号だけでは表裏両方のトラックを指します。この場合、トラック番号はシリ 
ンダ番号と同じになります。 

もうひとつはサーフヱス番号をトラック番号の中に取り込んだ考え方で、シリンダ〇 
表、裏、シリンダ1表、裏、……と順にトラック番号をっけていきます。この方法だと、 
ひとつのトラック番号でひとつのトラックを指せるので、っごうがよく合理的で、 
BASIC でも内部処理上はこちらを使用しています。しかし、片面で使用するときと、 
両面で使用するときとで、同じトラックを指すのにトラック番号が違ってきて、直感的 
にわかりにくくなります。 

この章は BASIC からみたディスクについて説明しますので、前者の方法を使います。 

第10章では内部処理に立ち入りますので、後者を使います。 
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9-2 ディスクの構造 


NssDISK - BASIC で使用できる3種類のディスクの構造について説明します。これは正常 
の N 88 - DISK - BASIC で使われている構造で、他の 0 S や、コピープロテクトされたディスク 
では異なる場合があります。 

9-2-1 ディスク•マップ 
①8 インチ両面 

PC -8881 を接続すると使えるようになります。 

トラック数片面77 (使用しているのは片面 76) 

記録方式 MFM 

セクタ数 26セクタ/トラック 
セクタ長 256バイト/セクタ 

データ容量1，011，712バイト（フォーマツト後.システム領域を含む） 



図 9-2 -A 8インチ両面ディスクマップ 
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② 5 インチ両面 

内蔵のドライブで使うタイプで、本章でもこのタイプを前提にしています。 

トラック数片面40 
記録方式 MFM 

セクタ数 16セクタ/トラック 
セクタ長 256バイト/セクタ 

データ容量327,680バイト（フォーマット後.システム領域を含む） 



図 9-2 -B 5インチ両面ディスクマップ 


③5 インチ片面 

PC -8031 で使用するタイプですが、 PC -8801 mkII には接続できませんので、通常は使用 
しません。しかし、ソフトウェアによって、内蔵ドライブでもこのタイプを使用できるよう 
になります。（第15章ランダムテクニック参照） 

トラック数35 
記録方式 MFM 

セクタ数 16セクタ/トラック 
セクタ長 256バイト/セクタ 

データ容量143,360バイト（フォーマット後.システム領域を含む） 
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トラック 

セクタ 

クラスタ 

用途 

一 0 

1 

0 

IP し 

一 0 

2-16 

0 . 1 


. _ 

1 

1〜16 

2,3 

DISK コー ト 

- 2 

1〜16 

4.5 


- 3 

1〜16 

6,7 


-18(12H) 

1 -12 

36.37 

ディレクトリ 

_18(12H) 

13 

37(25H) 

ID 

」8(12H) 

14一 16 

37(25H) 

FAT(0 〜 45H) 


ユーザ 領域 

トラック 4〜17 
トラック 19~34 


図 9-2 -C 5 インチ片面ディスクマップ 

9-2-2 ディスクアドレスとクラスタとの変換 

1 ) 5 インチ片面のとき1クラスタ==8セクタ 

<クラスタ> = < トラック > X 2+< セクタ >¥9 
<トラック> = <クラスタ>¥ 2 

<セクタ > = (< クラスタ> MOD 2) X 8 + 1 から 8 セクタ 

2) 5 インチ両面のとき1クラスタ=8セクタ 

<クラスタ> = < トラック > X 4+< サーフェス > X 2+< セクタ >¥9 
<トラック> = <クラスタ >¥4 
<サーフェス > = (< クラスタ〉 MOD 4 )¥ 2 
くセクタ > = (< クラスタ〉 MOD 2) X 8 + 1 から 8 セクタ 
3 )8 インチ両面のとき 1 クラスタ =26 セクタ 

<クラスタ> = < トラック > X 2+< サーフェス> 

<トラック> = <クラスタ>¥ 2 
<サーフェス>=<クラスタ >MOD 2 
<セクタ > = 1 セクタ〜 26 セクタまで全部 

9-2-3 ディレクトリ 

ディレクトリには、ファイル名、フ.ァイル属性、ファイルが格納されている先頭クラスタ 
番号がしまわれています。これによりファイル名とファイルが格納されている場所との対応 
がつけられます。 

ディレクトリの位置は、 

5 インチ片面……トラック 18, セクタ 1 〜 12 
5 インチ両面 …… サーフェス 1， トラック 18， セクタ 1 〜 12 
8 インチ両面……サーフェス 0, トラック 35, セクタ 1 〜 22 
となっています。 1 つのファイルに対して 16 バイトが割り当てられていますが、そのうち使 
用されているのは12バイトです。デイレクトリはこのようになっています。 
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5 インチ両面のとき 


ア 


イル名 


拡張子 


h 〕 A dl. 1,12,1 
Track 12, Sur face 
0000 63 72 74 73 
0010 00 62 70 72 
0020 45 46 49 4C 
0030 46 45 44 49 
0040 00 61 G9 GA 
0050 48 45 58 44 
0060 73 70 6F 6B 
0070 4D 4143 48 
0080 54 43 48 4E 
0090 50 52 54 45 
00A0 FF FF FF FF 
00B0 FF FF FF FF 
00C0 FF FF FF FF 
00D0 FF FF FF FF 
00E0 FF FF FF FF 
00F0 FF FF FF FF 
h 〕 

h -フ 


未獅 


c r ts e tn88_H 
bp rntn88 一 G 
EFILESn88 夕 I 
FEDIT n88_F 
aijiIn88_E 
HEXDTAn88iL 
spoke n88_E 
MACHNLbin.B 
TCHNOWdta G 
PRTECTn88 A 


ファイルが格納されている 
先頭クラスタ擀号 

属性 

ヒット7 6 5 —4 3 210 

j T JI J 111 [ [ Ft 

I — 機械語ファイル 

-ライトプロテクト （ P ) 

- P オプションファイル （ E ) 

- リードアフター ライト （ R ) 

-非 ァスキー 形式 

図 9-2- D ディレクトリ 

9-2-4 ID セクタ 

ID にはユーザーズ マニュアルに あるとおり、ディスク全体の属性、一度に OPEN できる 
ファイルの数、電源 ON (リセット）時に実行される文が格納されています。1度に OPEN で 
きるファイル数と、電源 ON 時に実行される文は、システムディスクでないと意味を持ちま 
せん0 
ID は、 

5インチ片面……トラック18，セクタ13 

5インチ両面 . サーフェス1,トラック18,セクタ13 

8インチ両面 . サーフェス0，トラック35,セクタ23 

に割り当てられています。 

ID セクタの構成はこうなっています。 


00 : kill されたファイル 

FF :未使用 


8 7 9 


65C 5271 FFFFFF 
4444444444 FFFFFF 

0000000100 PFFFPF 
88C 889800 AFFFFFF 

8888888 E18FFFFFF 
3333333 B63FFFFFF 

IX 

08888888948 FFFFFF 
3333333673 FFFFFF 
r 

OEEEEEEE24EFFFFFF 
tG 666666666 FFFFFFV 
c 

64430910 C74FFFFFF 
s 7752442455 FFFFFF 

15E 54945 EF3FFFFFF 
06645656444 FFFFFF 


ffffffffffffffff 

ffffffffffffffff 

ffffffffffffffff 

ffffffffffffffff 

ffffffffffffffff 
ffdufffffffffffff 

FFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFF 

ffffffffffffffff 

ffffffffffffffff 
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属性 ファイル 数 BASIC テキスト 

1バイト 1バイト 254バイト 

図 9-2 -E ID セクタの構成 


ところでディスク ユー ティリティーの 「SET UP INFO 」 には年を設定する機能がありま 
したが、これもこのセクタに書き込まれます。ではどこに格納されるのでしようか。これは 
BASIC テキストの中に、 POKE 文として書き込まれるのです。たとえば、年を85年として 
設定したデイスクの ID セクタを見てみると、 


h 〕 A dl,l,12,d (5 インチ両面の場合) 


Track 12, Surface 01, Sector 0D 


0000 

Ml 

rl03l 70 

6F 

6B 

65 

20 

26 

48 

66 

30 

31 

32 

2C 

26 

48 

0010 

38 

35 

3A 

70 

72 

69 

6E 

74 

22 

66 

•69 

6C 

65 

73 

22 

3A 

0020 

66 

69 

6C 

65 

73 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0030 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0040 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0050 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0060 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0070 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0080 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0090 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00D0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


1度に OPEN できるファイルの数 


.poke &Hf012,&H 
85:print” files": 
files 


属性（ディレクトリと同じ） 


図 9-2 -F ID セクタの内容 

となります 。 POKE & HF 012, & H 85 というのがそれです。 F 012 H 番地には DATE $ の年の 
情報が格納されています。ここに & H 85 を入れると年が85年になるわけです。 

9-2-5 FAT (File Allocation Table ) 

FAT はファイルの格納状態を示します。ファイルが1クラスタに納まらない場合、残り 
を別のクラスタに書き込まなければなりません。この「別のクラスタ」をどこにするかには、 
いろいろな方法がありますが、 N 88 DISK - BASIC では、適当に空いているクラスタに書き込 
みます。（規則性はありますが、本質的にはどの空きクラスタに書き込もうとかまいませ 
ん。）このとき、どこのクラスタに書き込んだかを記録しておかないと、後で困ることにな 
ります。また、「別のクラスタ」を捜す時に、どのクラスタが空いているかが分からなけれ 
ばなりません。これらの情報を記録したものが、 FAT です。 

ではこの FAT はどのようになっているか見てみましよう。 

FAT の位置は、 
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h〕 A dl 
Track 
0000 
0010 
0020 
0030 
0040 
0050 

0060 

0070 

0080 

0090 

00A0 

00B0 

00C0 

00D0 

00E0 

00F0 

h 〕 


FAT 

160 バイト 


意味は 
ありません 


図 9-2 -G FAT の内容 

クラスタ 47 H を見て下さい。それは TCHNOWdta というファイルの先頭クラスタです。こ 
こには 43 H という値が入っています。これはデータがクラスタ 47 H に入り切れず、クラスタ 
43 H に続いていることを示します。クラスタ 43 H を見ると 3 EH となっています。こうして 

47 H —43 H —3 EH —3 CH —3 BH —38 H 

と続いていきます。クラスタ 38 H を見ると、値は C 2 H となっています。クラスタ C 2 H という 
ものはありません。値が C 1 H ~ C 8 H ( 8インチの時は C 1 H 〜 DAH ) の時は、ここのクラスタ 
でファイルが終わっていて、下位5ビット （ 5イ ン チの時1〜8，8イ ン チの時1〜1 AH ) 
がそのクラスタで実際に使用しているセクタ数を表わします。ここではクラスタ 38 H のうち、 
2セクタを使用して、ファイルが終わっていることを示します。 

これらをまとめると次のようになります。 


バイトのデータ （16 進） 

クラスタの使用状態 

8インチ両面の時 0〜99 

5インチ両面の時 〇〜 9 F 

5インチ片面の時 〇〜45 

使用中。連続したクラスタの一部であり、後続するク 
ラスタを持つ0値が、後続するクラスタの番号を示し 

ている。 

8インチ両面の時 C 1 〜 DA 

5インチの時 C 1 〜 C 8 

使用中。連続したクラスタの最後のクラスタであり、 

下5 (5 インチの時は下 4) ビットの内容が、そのク 
ラスタで実際につかわれているセクタの数を表わす。 

FE 

予約済みのクラスタで、ファイルとして使うことはで 
きない 0 ( DISK コード、 IPL 、 ディレクトリ、 FAT 自身 

を含むクラスタがこれである c ) 

FF 

未使用。 


5インチ片面 . トラック18，セクタ14〜16，160バイト 

5インチ両面 . サーフェス1，トラック18，セクタ14〜16， 70バイト 

8インチ両面 . サーフェス0，トラック35，セクタ24〜26，154バイト 

となっていて、3つのセクタとも同じものが入っています。 


FFF 6FFFFFF 000000 
FFF CFFFFFF 000000 

FFFCFFF FFF 000000 
FFF OO-FFFFFF000 


0 0 0 


FFF F1FFFFF 000000 D 
FFFFCFFFFF 000000 + 


FFFBDFFFFF 000000 
FFF34FFFFF000 


0 0 0 


0 0 0 A 
0 0 0 + 

0 0 0 9 
0 0 0 + 


FFF OO-EFF FFF 000000 
FFF3FFFFFF 000000 

FFFFEFFFFF000 
FFF FFFFFFF000 

FFFF8FFFFF000 

FFFFCFFFFF000 

XM, FFF25FFFFF 000000 
台 FFF C-CF F FFF 000000 

場 0EFF F ^l F FFFF 
^ FFFFyFFFFF 
の r 

OEFFF4FFFFF 000000 
3tFFFF4F FFFF00«000 


10 0 0 0 0 7 
0 0 0 0 0 0 + 


^ eEFFF8F FFFF500 
4-SFFFFCFFFFF400 


0 0 0 
0 0 0 


ン 


0 4 
0 + 


5 


1EFFF8F FFFF 50000 
0FFFKCF FFFF 40000 

eEFFKE-F FFFF00 
CFFFF3-F FFFF00 
a 

fEFFF0F FFFF50 
TFFFF4F FFFFE0 
,u 

2SEFFF1F FFFF 7000001 
1 »FFFFCF FFFF 800000 + 
,2 

11EFFFFF FFFF 6000000 
, FFFF3F FFFFC 00000 + 


0 0 0 0 
0 0 0 0 

0 0 0 0 
0 0 0 0 


143 












9-3 ドライブ テーブル 


ドライブポインタとドライブテーブルは、電源 ON (リセット）時に、接続されているドラ 
イブの数だけ確保されます。各ドライブポインタ （2 バイト）は、対応するドライブテーブル 
の、先頭から3バイト目のアドレスを持っています。 

各ドライブテーブルの構造は図 9-3- B のとおりです。ドライブテーブルの先頭バイトが 
FFH の時は、ディスク上の FAT がまだ更新されていませんので、そのドライブのディスク 
を抜いてはいけません。必ず、 CLOSE または END を行なってから抜いて下さい。また、ディ 
スクにファイルを〇 PEN した時も、必ず CLOSE または END を行なってからでないと、ディ 
スタを抜いてはいけません。これは N - DISK - BASIC の REMOVE に相当するのです。 



n :接続されているドライブ数 


E 07 DH 番地に入っている 

図 9-3 -A ドライブ テーブルの 位置 図 9-3- B ドライブ テーブルの 構造 
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9-4 DSKF 関数 

DSKF 関数は、ディスクファイルの構造に関する情報を返す関数で、機能を指定すること 
によって、別表のような値が得られます。 

この値のデータは N 88 DISK - BASIC 上の 8 A 18 H 番地に格納されています。 

リスト 9-1 

8A18 4C 1A 01 01 9A 23 1A 18 1A 0317 34 

8A24 2210 00 02 4612 08 0E 10 03 0D 10 

8A30 2710 01 02 A0 12 08 0E 10 03 0D 10 

マニュアルでは 11種類の機能しかあげてありませんが、上のデータを見ると、各ドライブ 
タイプに ついて、 12個ず つの 値があるようです （ DSKF 機能一覧表）。 

それからドライブタイプとしては、表の3つの他に DMA 方式の ミニフロッピーディスク 
ドライブも考えられているようです が、 これについては内蔵 ミニフロッ ピードライブと同じ 
ようになっています。 

DSKF 機能一覧表 


機能番号 

8- 

-2 D 

5- 

-2 D 

5-1 D 

機 能 

16進 

10進 

16進 

10進 

16進 

10進 

■■ 

4 C 

76 

27 

39 

22 

34 

片面あたりの最大トラック番号 

m 

1 A 

26 

10 

16 

10 

16 

1トラックあたりのセクタ数 

2 

01 1 

01 

1 

00 

■1 

片面…0、両面…1 

3 

9 A 1 



1トラックあたりのクラスタ数 

4 

9 A 

154 

A 0 

160 

46 

70 

クラスタの総数 

5 

23 

35 

12 

18 

12 

18 

ディレクトリが格納されているトラ 

ック番号 

6 

1 A 

26 

08 

8 

08 

8 

1クラスタあたりのセクタ数 

7 

18 

24 

0 E 

14 

0 E 

14 

FAT の開始セクタ番号 

8 

1 A 

26 

10 

16 

10 

16 

FAT の,終了セクタ番号 

9 

03 3 

03 3 

'03 3 

FAT の個数 

10 

17 

23 

0 D 

13 

0 D 

13 

ID が格納されているセクタ番号 

11* 

34 

52 

10 

16 

10 

16 

1クラスタあたりのセクタ数 X 2 


(*N88-DISK-BASIC では使われていません。) 


145 





































9-5 標準ディスク 


9-5-1 インタリーブ13フォーマッティング 

市販されている標準 （ 8インチ）のフロッピーデイスクを使用すると、 NEC のデイスクよ 
りも入出力が遅いことがあります。これはディスクの物理的フォーマットの方法が異なるた 
めです。 

NEC のデイスク （ PC -8886) と他社の多くのデイスクのフォー マッ トの違いは次のような 
ものです。一般的なデイスクは、トラック上にセクタが1から26まで順番に並んでいます。 
ところが、 NEC のディスクの場合には、セクタが1つおきに続いています。この形式をイン 
タリーブ13と呼びます。第1セクタの次が第14セクタで、差が13だからです。なぜこのよう 
なフォー マッ トにしたのかというと、 PC -8881 を使用して、連続したセクタを読み書きす 
る時には、この方が速いからです。 

あるトラックの第1セクタ〜第3セクタを続けて読む場合を考えます。第1セクタを読み 
取った後、第2セクタを読みに行くまでの間には、いろいろな処理が必要です。このため、 

セクタが順に並んでいる場合には、第2セクタを読み取ろうとした時にはすでに第2セクタ 
の先頭がへッドを行きすぎてしまい、第2セクタがぐるっと1周してくるまで待たなくては 
なりません。 NEC ディスクの形式では、第1セクタの次は第14セクタですから、第14セク 
夕が行き過ぎるまで待てばよいわけで、このほうがずっと速いわけです。 

もちろん1セクタだけのアクセスであれば、どちらの形式でも違いはありません。なお、 
このフォーマットの違いは、あくまでも物理的なもので、通常な使用法ではどちらもまった 
く同じに扱えます。 

インタリーブ13形式でフォーマットするには、システムディスクのディスクユーティリ 
テイーで物理的フォーマットを指定します。 

9-5-2 トラック0 

標準デイスクの場合、 NssDISK - BASIC ではトラック0が表裏とも使用されていません。 
これはなぜかというと、トラック0は他のトラックとは物理的なフォーマットが違っている 
からです。モニタで読んでみようとしても、まったく読めません。 

トラック0のサーフェス0は単密度 （ FM 方式、128バイト/セクタ）でフォーマットされ 
ています。そのため通常の方法では読み書きできません。ぜひとも読みたい場合は、バ 
PD 765 を直接コントロールするプログラムを書く必要があります。 

トラック0の内容は通常次のようになっています。 

セクタ5 : エラーマップ 

フォーマット時に不良トラックの情報が書き込まれています。 

セクタ7 :ボリュームラベル 

ボリューム名やユーザー ID のほか、他のトラックのセクタ長やセクタの並んでいる順 
序などの情報が入っています。 

セクタ8〜26 :ファイルラベル 

ファイル名やその場所が書かれます。 IBM 方式のファイルのディレクトリです。 
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トラック 0 ， サーフェス〇 



図 9-5- A トラック0、サーフェス0 

これらの情報は、ディスクを IBM 方式で使用する時に必要なもので、 EBCDIC コード 
( IBM の文字コード）を使用していて、 NssDISK - BASIC ではまったく使用されていません。 
それだけでなく、これらの情報も書き込まれてないディスクもあります。 

トラック0でもサーフェス1は倍密度で書かれているのですが、読めない場合があります。 
ですが強引に読むことはできます。 モニタの 八1*コマンドを使うと、 ェラー にはなりますが、 
メモリ上にはちゃんと読み込まれています。これは、そのセクタに DD AM (Deleted Data 
Address Mark ) という印がついているからです。また、書き込みは自由です。いったん書き 
込むとその後は正常に読むことができます。 
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BASIC によるユーテイリテイ 


ATTR 


ADDRESS LOCATION 

- 48(5) 

- 49(8) 

- 40 44 ( 8 ) 

- 4C 4DC1) 

- 45(8) 

D000-E561 42 40 3FC6) 

- 47 43 3E 3C 3B 38(2) 

- 41(1) 


FILE-NAME 

c r tse t. n88 
EFI し ES. n88 
FED IT . n88 
HEXDTA. n88 
spoke . n88 
MACHNL 木 bin 
TCHNOW dta 
PRTECT. n88 
Ok 


フログラムでは、デイレクトリを DSKI $ 関数で読んでいくことにより、ファイル名、属性、 
先頭クラスタ番号を得ています。ファイルが使用しているクラスタ番号は、 FAT を読んで、 
順に追ってゆけばわかります。最後のカッコの中の数値は、最後のクラスタの中で実際に使 
用しているセクタ数を表わします。 

機械語ファイルの場合はアドレスを読んできます。アドレスは、ファイル自身の最初の4 
バイトに開始番地、終了番地+1が書き込まれています。 

9-6-2 ディスクエディット 

ディスケットをセクタ単位で書き換える場合には、普通はモニタで次のようにします。 

① 八!*でメモリ上に読み込む 

② e でそのデータを修正する 

③ a w でデイスクに書く 

④ Ad コマンドで確かめる 

しかし、 Aw で書く時に間違ったセクタに書き込んでしまったら大変です。また e コマン 
ドでは16進または8進での修正しかできません。ここで紹介するプログラムは、読み込んだ 
セクタに書き込むことを原則とし、文字での修正も可能なデイスクエディタです。 


ここでは BASIC で作った5つのデイスクユーテイリテイを紹介します。フログラムリス 
卜は章末にまとめて掲載してあります。 

9-6-1 拡張 FILES 

ファイル名とファイルの大きさだけでなく、その属性や、使用しているクラスタ番号、ま 
た機械語ファイルの場合には、そのアドレスも出力する「拡張 FILES 」 を BASIC で作った 
例を紹介します。実行例を下に示します。 

リスト 9-2 

CRT (c) or PRINTER (p) ? c 
DRIVE NUMBER ?1 

wsmmam drive i 圆里 free 133 


NRNPNNNE 
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RUN するとまず” Drive?” とたずねてきます。修正したいディスクのドライブ番号を入 
力して下さい。ここで0と入力すると、ディスクからでなく、メモリーからデータを読むこ 
とになります。 

次にサーフヱス、トラック、セクタを順次入力して下さい。 

Drive ? くドライブ番号〉 

1のとき 0のとき 

くサーフェス入力> <アドレス入力> 

<トラック入力> 

<セクタ入力> 

下のように表示されます。 

リスト 9-3 

M DISK EDITOR Ml Driue 1 Surface 0 Track 24 Sector 3 


+0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F 0123456739 ABCDEF 



EDlT-SfiVE-FIbKe/s/f) ? 







ここで 次の 3 つを選びます。 

EDIT (e0 と入力）....データの修正 

SAVE (s0 ク ） ....データの書き込み 

FIN (f0 ゥ ） ..•.終わり 

EDIT モードでは 3 つのファンクシヨン キーに意味があります。 
f -1:16 進で入力する時に押します。最初はこのモードです。 

f- 2 :文字で入力する時に押します。カーソルが右の文字が表示されている領域に移 

動します。 

f - 5 : EDIT モードから抜け出します。 

9 - 6 - 3 ファイルソート 

Files で出てくるファイル名は、ディレクトリに登録されている順番で表示されます。こ 
れを ABC 順に並べ変えるプログラムを紹介しましよう。 

RUN すると、ディレクトリを読み込んだ後、ソートします。ここで” MAY I WRITE 
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( Killed ) は kill されたファイルが入っていた所で、 （ Empty ) はまだファイルが入っていない 
ところです。右の、文字が反転している場所はカーソルです。 

力ー ソルキーとファンクシヨンキーを使ってファ イ ルを 移動します。力ー ソルキーを 押す 
と、その方向に力ー ソルが 移動します。 

MARK (f -1キー）を押すとその場所がブリンクします。 

SWAP ( f . 2キー）を押すと、力ーソルのあるファイルとマークされたファイル（ブ 
リンクしている）とが入れ換わります。 

この MARK と SWAP でファイルの移動を行なっていくわけです。 

RENAME ( f . 3キー）は、力ーソルのあるファイルの名前を変更するためのもので 

す。 

END(f • 5キ ー） を押すと、次のように尋ねてきます。 

” WRITE ON DISK? (y/n/r) : ” 
y を入力……移動したデータをディスクに書き込みます。 

n を入力 . ディスクに書き込まずに処理を終わります。（ファイルの位置は変わらな 

かったことになります。） 
r を入力……エディットモードに戻ります。 


ON DISK ?” ときいてきますので、 y または n を入力して下さい。 y を入力すると、ソート 
したディレクトリをディスクに書き込みます。 

9-6-4 ファイル.リロケーシヨン 

今度はファイルを ABC 順ではなく、自分の好きな順番に並べ変えようというものです。 
このプログラムで処理できるのは、デイレクトリの最初の5セクタです。最大80個のファイ 
ルの並べ変えができます。 

RUN するとディレクトリを読み込んだ後、次のように表示されます。 

リスト 9-4 

DIRECTORY RELOCATION 

SECTOR 1 SECTOR 2 SECTOR 3 SECTOR 4 SECTOR 5 


oo rlHl noQrooQf 
8 AwonoonB 

nDnnnn 


JUUUUUUUUUUUUL^ 

nnnnnnn 

aaos^rt 

MV6WC1 

opbnvo 


vcccc« 

k _ W l v l+ K 




snnnnnn 

OD 1A 11 lx 11 IMS ^ 

HOQbpponnnnnnnsn 


t bctipJAHHK 

MV66£w0^/tih 



c r o > c OOcTO 

e ax. x r n 

tajc 1 



nnnnnnknn 


nbn 

19r?vsJ 1 Vi tr 

^ws Ol£I 

itt ^SXACloonoau^lsc 

K^stytdrttcclsct^ 
39p9ncusksopsry 

^risrpshlrlxTidJCICrhcs 


000000000000 co—oocooco: 000000 



nnnn 

t^hrRTinll^t^ 
r^ulllollrf rn 
s c s —1—s o 

l^lllll^uR^nccIJmd 
lkKKa«aa-s_p 


r12 





QU8 

OU 8 



i( - fa 

60 
I t ■‘ 


U3SMU 21 
kovoNMKK 
SI PEC 


f— 


^Nnnnnnn 

^Mvtssstc 
Td0r6oi 
Tlcu—cerr 

で klrror^ 

^strrbl 
6 - 
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9-6-5 選択的ファイル転送 

ディスク上のファイルを別のディスクに転送したいことがよくあります。しかし、ディス 
クユーティリティーの 「TRANSFER FILES 」 を使うと、すべてのファイルを転送してし 
まいます。というわけで、指定したファイルだけを転送するプログラムを作ってみました。 

このプログラムでは、ディスクの最初の90個のファイル（通常は十分な数です）のなかから、 
力ーソルキーで転送したいプログラムを指定します。 

実行させると、まず SOURCE DRIVE と DESTINATION DRIVE を尋いてきますので、 
転送元と転送先のディスクをセットしてから、それぞれ転送元ドライブ番号と転送先ドライ 
ブ番号を入力してください。 

すると転送元のディスクからディレクトリを読み込んでこのように表示します。 

リスト 9-5 



Selective File Transfer 



Driuel-> Driue2(FREE 89) 


S 百 MljiyBgg 

grphfdTnbb 
?bprnt.n88 
gaijiL.n38 
kjchft,n88 
kujlst2,n88 
ndemo.n88 
sroll.n88 
symchr.nSS 
spoke *bin 
HX8DTA_n88 
6VRAM scr 
g リ raind.n 88 

me mdp 3.1188 


Qload .n83 

dskedt.n83 

filrlc.n83 

gaijiM.n88 

kjjsrfn.n88 

ram.75 n 

script,n88 

holdujd.n88 

text6P,n88 

grphsblbin 

： SELXFR.n88 

undlin.n8S 

colors.n88 


Sexst * 

efiles,n88 

filsrt.n83 

gaijil.n88 

dmaon .n88 

agsmpl.n88 

nijtojs.n88 

giosmpl.n88 

epepollbin 

spcjdujs*bin 

txxcpy.n88 
mo'jram.n88 
kjput .n83 


MENU . 
errors,n88 
fkicmd.n88 
grdtgn.n88 
knjchr.n88 
setsncj.n88 
jstomj.n88 
hscls 辜 bin 
reco リ辜 bin 
NB1200,n 
grcopy.n88 
epepo2*bin 
mefndpl.n88 


Cursor keys to mow, Space to select,Return key to end 
» Select the files to transfer. 


ack232.n88 

errmes.n88 

fkisub,n88 

kjcfrm.n88 

kwlstl,n88 

rdtxtr.n88 

akcn リ .k83 

crtset.n83 

atrgetlbin 

RAM+75.n 

^rphsu.n88 

Ioijres.n88 

frierridp2,n88 



画面左上の反転している部分がカーソルで、カーソルキーによって移動します。転送した 
いファイルのところに移動させてスペースキーを押すと、ファイル名が登録されて、 [] 
で囲まれます。登録されたファイルの位置でもう一度スペースキーを押すと、登録解除にな 
ります。 

転送したいファイルをすべて指定したら、0キーを押してください。ファイルが順に転送 
されます。転送先に同じ名前のファイルがあると、転送されたファイルで置き換わります。 
また、画面右上に FREE と表示されているのは、転送先の残り容量です。ファイルを登録 
するたびに減っていき、あとどれくらいファイルを転送できるかがわかります。ただし、こ 
れは正確な残り容量ではなく、転送先に同じ名前のファイルがあるときは、実際の残り容量 
よりも小さな値を示します。しかし FREE が0以上あれば 、 DISK FULL になることはあり 
ませんから、この値を目安に転送するファイルを指定することができます。 
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9-6-1 拡張ファイルズリスト 


100 1 

110 • EXPANDED FILES 
120 f 

130 DEFINT A - Z 

140 PRINT : PRINT ” CRT (c) or PRINTER (p) ? n : E$=INPUT$ (1) : PRINT E$ 

150 IF E$<>"c” AND E$<> ，， p” THEN 140 

160 IF E$ = ” c” THEN DEV ICE$=” s c rn : ” ELSE DEV ICES=” 1 p 11 : ，， 

170 PRINT ” DRIVE NUMBER ? ，， ； : E$=INPUT$ (1) : PRINT E$ 

180 DRIVE=VAL(E$) : IF DRIVE<1 OR DRIVE>PEEK(&HEC7D) THEN 170 
190 OPEN DEVICES FOR OUTPUT AS 林 1 
200 f 

210 DIM FILES (15) f EX$ (15) f ATR$ (15) , CL$ (15) f FAT (DSKF (DRIVE, 4)-1) 

220 FOR 1=0 TO15 

230 FIELD 林 0, 1*16 AS DMS f 6 AS FILES(I) , 3 AS EX$ (I),1 AS ATR$ (I) f 1 AS CL$ (I) 
240 NEXT 

250 DTYPE=3+(DSKF (DRIVE, 1)=26)-DSKF (DRIVE,2) 

260 IF DTYPE=1 THEN DM$=DSKI$(DRIVE,0,35,24) f 8 inch 

270 IF DTYPE=2 THEN DMS=DSKI$(DRIVE,1,18,14) *5 inch DS 

280 IF DTYPE=3 THEN DM$=DSKI$(DRIVE,18,14) 1 5 inch SS 

290 FOR 1 = 0 TO DSKF (DRIVE,4)-1 

300 FAT(I)=ASC(MID$ (DM$, 1 + 1, 1)) 

310 IF FAT (1)=255 THEN FREE=FREE+1 
320 NEXT 
330 • 

340 PRINT _ _ 

350 PRINT 钵 1,”■■■■■■ DRIVE” ； DRIVE;” ; 

360 PRINT 林 1,” FREE”；FREE 
370 PRINT »l f 

380 PRINT 林 1 ， ”FI し E — NAME ATTR ADDRESS LOCATION” 

390 FOR SECTOR=l TO DSKF (DRIVE, 10)-1 

400 IF DTYPE=1 THEN DM$=DSKIS (DRIVE,0,35,SECTOR) 

410 IF DTYPE=2 THEN DM$=DSKI$ (DRIVE,1,18,SECTOR) 

420 IF DTYPE=3 THEN DM$=DSK1$ (DRIVE,18,SECTOR) 

430 FOR 1=0 TO15 
440 P=ASC (FILES (1)) 

450 IF P=0 THEN 本 NEXT. FILE 

460 IF P=255 THEN END 

470 ATR=ASC (ATR$ CD) : ATR$= ”” 

480 IF ATR AND &H80 THEN FTYPE$=’ ，•” ELSE FTYPES=” ” 

490 IF ATR AND 1 THEN FTYPE$= ，，木 ” 

500 IF ATR AND &H40 THEN ATR$=”R” 

510 IF ATR AND &H20 THEN ATR$=ATR$+”E” 

520 IF ATR AND &H10 THEN ATRS=”P” 

530 IF ATR$ こ”，， THEN ATR$=”N” 

540 ADRS$=STRING$(9, ” 一”） 

550 IF FTYPE$=” 木 ” THEN GOSUB *GET. ADRS 

560 PRINT »l f FILES(I) ;FTYPES;EX$ (I) ” ； ATR$;” ” ； ADRS$; ” ”； 

570 Cl=ASC (C し $(I)) 

580 WHILE CL<&HC0 

590 PRINT tU,” ”； RIGHTS ("0”+HEX$ (CL) ， 2); 

600 CL=FAT(C し） 

610 WEND 

620 PRINT ”（” ;MID$ (STR$ (CL—&HC0) , 2); ” 

630 ホ NEXT. FILE 

640 NEXT 
650 NEXT : END 
660 • 

670 ホ GET.ADRS 

680 OPEN MID$ (STR$ (DRIVE) , 2 ) +，， ： ”+FILE$ (I)+EX$ (I) FOR INPUT AS «2 
690 ADRS$=RIGHT$ (” 000”+HEX$ (CV I (INPUTS (2, 2) ) ) , 4) +，，-，， 

7 00 ADRS$=ADRS$+RIGHTS( M 000 M +HEXS(CVI CINPUTS(2, 2))- 1) ， 4) 

710 C し OSE «2 
720 RETURN 
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2 


ディスクエディツト 


リスト 


1000 • 

1010 • DISK EDITOR 

1020 f 

1030 f - INIT 

1040 DEFINT A-Z 

1050 WIDTH 80,25 : CONSOLE 0,25,0,0 : COLOR 0 
1060 KEY 1,CHR$ (253)+”HEXCODE”+CHR$(29) 

1070 KEY 2,CHR$ (254)+CHR$ (28)+ ，， CHARACTER” 

1080 KEY 5,CHR$ (255)+”END" 

1090 • 

1100 CLS : PRINT ” 〔C DISKETTE EDITOR 〕〕” 

1110 INPUT ” Drive ; DRIVE : IF DRIVE=0 THEN 2270 

1120 IF DSKF (DRIVE, 1)=26 THEN DTYPE=3 

1130 IF DSKF (DRIVE,2) THEN DTYPE=2 ELSE DTYPE=1 

1 140 IF DTYPE>1 THEN INPUT M Sur face ”； SURF 

1150 INPUT ” Track ”； TRACK 

1160 INPUT ” Sec tor ”； SECTOR 

1170 FIELD 林 0,128 AS A$ f 128 AS B$ : GOSUB 木 DISK.READ 
1180 f 

1190 f - DATA DISPLAY 

1200 CONSOLE 0,25 : CLS 

1210 PRINT DISK EDITOR ■■ 

1220 PRINT "Drive";DRIVE; 

1230 IF DTYPE>1 THEN PRINT ” Surface” ； SURF; 

1240 PRINT ” Track” ； TRACK;” Sector";SECTOR 
1250 LOCATE 2,2 

1260 FOR 1=0 TO15 : PRINT ” +” ； HEX$(I); : NEXT 
1270 PRINT SPC (6) 0123456789 ABCDEF” 

1280 LOCATE 3,3 : PRINT STRINGS (47, ，，一，，）； SPC (5) r” ； STRINGS (16 •，，一，，）； Y 
1290 LOCATE 0, 4 
1300 FOR 1=0 TO15 
1310 PRINT HEX$(I ); ”： 

1320 POKE &HF5DF+I 木 120,150 
1330 FOR J=0 TO15 : K=I 木 16+J 

1340 IF I>7 THEN D=ASC(MID$(B3,K—127,1))E し SE D=ASC (MID$ (A$,K+1,1)) 

1350 PRINT RIGHTS(”0”+HEX$(D) , 2); ” ”； 

1360 POKE &HF5E0+I 木 120+J,D 
1370 NEXT 

1380 LOCATE 72,1+4 : PRINT"l n 
1390 NEXT 

1400 LOCATE 3,20 : PRINT STRINGS(47, ”一”）； SPC(5) レ，； STRINGS(16, ”一”）；”」” 

1410 f 

1420 f - COMMAMD INPUT 

1430 CONSOLE 22,1,0 : CLS 

1440 INPUT ” EDIT,SAVE, FIN (e/s/f) ” ； C$ 

1450 IF C$= ”” THEN 1430 

1460 ON INSTRr esf f, t C$) GOSUB 冰 ED I TOR , 木 SAVER , 木 ENDER : GOTO 1430 
1470 f 

1480 • - END 

1490 LENDER 

1500 CONSOLE 0,25,0 : RETURN 1510 

1510 KEY l f "load ” +CHR$(34) : KEY 2,”fiies ” ： KEY 5,”run”+CHR$ (13) 

1520 LOCATE 0,22,1 : CONSOLE 0,25,1 
1530 END : RUN 
1540 * 

1550 f - SAVE 

1560 木 SAVER 

1570 WDRIVE=DRIVE : WSURF=SURF : WTRACK=TRACK : WSECTOR=SECTOR 

1580 IF WDRIVE=0 THEN 1610 

1590 INPUT ” The same sector (y/n)” ； C$ 

1600 IF C$= ” y”OR C$= ” Y”THEN 1640 
1610 INPUT，，Drive ••;WDRIVE 

1620 IF DSKF (WDRIVE, 2) = 1 THEN INPUT "Surface, track, sec tor t, ;WSURF f WTRACK , WSECTOR 

1630 IF DSKF (V/DRIVE, 2)=0 THEN INPUT ” Track, sec to r” ； WTRACK, WSECTOR 
1640 f 

1650 LOCATE ,,0:DIM D$ (15) :W=&HF5E0 : H=VARPTR (W) 

1660 FOR J=0 TO15 


153 


1670 K=VARPTR (D$ (J)) 

1680 POKE K,16:POKE K+l,PEEK (H) : POKE K+2,PEEK (H+1) 

1690 W=W+120 

1700 NEXT 

1710 Al$ = ”” ： FOR J:0 TO 7 •• A1$=A1$+D$ (J) : NEXT : LSET A$=A1$ 

1720 Bl$ 二””： FOR J = 8 TO15 : B1$=B1$+D$ (J) : NEXT : LSEJ B$=B1S 
1730 IF DSKFCWDRIVE,1)=26 THEN DTYPE=3 : GOTO 1750 
1740 IF DSKFCWDRIVE,2) THEN DTYPE=2 ELSE DTYPE=1 
1750 G 〇 SUB 水 DISK. WRITE : ERASE D$ 

1760 LOCATE ,,1:RETURN 
1770 f 

1780 f - EDIT 

1790 ホ EDITOR 

1800 LOCATE (3,22 : PRINT”Now edit mode .”； 

1810 LOCATE 3,4 : CONSOLE ,,1 
1820 C$=INPUT$(1) : V=ASC (C$) 

1830 GOSUB ホ KEYCLEAR 
1840 X=POS (0) : Y=CSRLIN- 
1850 IF V=255 THEN RETURN 

1860 IF V=254 THEN IF X<52 THEN LOCATE X¥3 + 55,Y : GOTO 1820 ELSE 1820 
1870 IF V=253 THEN IF X>52 THEN し〇 CATE X 水 3 — 165,Y : GOTO 1820 ELSE 1820 
1880 IF X>52 THEN 2150 

1890 ’ HEX EDIT 

1900 IF C$>=”0”AND C$<=”9”THEN 2030 

1910 IF C$>= ” A”AND C$<=”F” 丁 HEN 2030 

1920 IF CS>=”a”AND C$<= M f " THEN V=V - 32 •• C$=CHR$ (V) •• GOTO 2030 

1930 IF V=8 THEN V=29 

1940 IF V=32 THEN V=28 

1950 IF V>=28 AND V<=31 THEN 1970 

1960 GOTO 1820 

1970 ON V-27 GOTO 1980,1990,2000,2010 

1980 X=X+1 — （X MOD 3>0) + (X=49) 木 48:IF X=3 THEN 2010 ELSE 2020 
1990 X=X-1+ (X MOD 3=0) — （ X=3) 水 48:IF X=49 THEN 2000 ELSE 2020 
2000 Y=Y - 卜 （ Y=4) : GOTO 2020 
2010 Y=Y+1+(Y=19) 

2020 LOCATE X,Y:GOTO 1820 
2030 PRINT C$; 

2040 D=PEEK(X¥3+Y 木 120+&HF3FF) 

2050 K=V - 48+(V>S0) 木 7 

2060 IF X MOD 3=0 THEN D=(D AND &HF)OR(K 木 16) 

2070 IF X MOD 3=1 THEN D=(D AND &HF0)OR K 

2080 POKE X¥3+Y*120+&HF3FF, D 
2090 IF X MOD 3=0 THEN 1820 

2100 PRINT ” ”； 

2110 IF X<49 THEN 1820 

2120 IF Y=19 THEN LOCATE 3,4 ELSE LOCATE 3,Y+1 
2130 GOTO 1820 

2140 ， - CHARACTER EDIT 

2150 IF V=8 THEN V=29 

2160 IF V>=28 AND V<=31 THEN 2200 

2170 POKE &HF3C8+Y 木 120+X,V 

2180 LOCATE X^<3 — 165,Y,0 : PRINT RIGHTS (” 0”+HEX$ (V) , 2) : LOCATE X,Y 
2190 GOTO 2210 

2200 ON V - 27 GOTO 2210 f 2220^2230, 2240 

2210 X=X+1 + (X=71) 木 16 : IF X=56 THEN 2240 ELSE 2250 

2220 X=X-1 - （ X=56) 木 16 : IF X<71 THEN 2250 

2230 Y=Y - 1-(Y=4) : GOTO 2250 

2240 Y=Y+1+ (Y=19) 

2250 LOCATE X,Y,1 : GOTO 1820 
2260 • 

2270 ’ - READ FROM MEMORY 

2280 PRINT”Read from memory. Input address.”；：INPUT ADRS$ 

2290 J=VAL(”&H”+ADRS$) : Al$=”” : Bl$=”” 

2300 K=VARPTR(J) : D=VARPTR(A 1$) 

2310 POKE D,128 : POKE D+1,PEEK(K) : POKE D+2,PEEK (K+l) 

2320 J=J + 128 : D=VARPTR (Bl$) 

2330 POKE D,128 : POKE D+l,PEEK(K) : POKE D+2,PEEK(K+1) 

2340 FIELD 林 (3,128 AS A$,128 AS BS : LSET A$=A1$ : LSET B$=B1$ 

2350 GOTO 1200 
2360 • 
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410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 


290 

300 

310 

320 

330 


f FILE SORT 

9 

, - TITLE 

CONSOLE 0,25,1,0 : WIDTH 80,25 

COLOR 0 : PRINT ”N88— DISK BASIC 〔〔 FILE SORT 〕〕 ” 

PRINT 

f 

9 - DRIVE NUMBER INPUT 

INPUT ” DRIVE NUMBER ”； DRIVE 

IF DSKF(DRIVE, 1)=26 THEN DRIVE. TYPE=3:GOTO 230 ’standard 

IF DSKF(DRIVE, 1)<>16 THEN 木 NOT. SUPPORT 

IF DSKF(DRIVE, 2) THEN DRIVE. TYPE=2 ELSE DRIVE.TYPE=1 

PRINT 

» 

• - READ DIRECTORY to FILES () 

DIM FILES (192),ROG$(15) 

FOR 1 = 0 TO15 : FIELD 林 0, I 木 16 AS DUMY$,16 AS ROG$ (I) : NEXT 

SECT0R=1 : FI し E.COUNT=0 

IF DRIVE. TYPE=2 THEN DUMY$=DSKI$ (DRIVE,1,18,SECTOR) 

IF DRIVE. TYPE=1 THEN DUMY$=DSKI$ (DRIVE,18, SECTOR) 

IF DRIVE. TYPE=3 THEN DUMY$=DSKU (DRIVE, 0, DSKF (DRIVE, 5) , SECTOR) 
FOR 1=0 TO15 

IF ASC (ROG$(I))=255 THEN ホ FI し EEND 

IF ASC (ROG$(I))=0 THEN し SET ROGS(I)=STRINGS(16 f 255) 

FILES (FILE. COUNT)=ROG$(I) 

FILE.COUNT=FI し E. COUNT+1 
NEXT I 

SECT0R=SECT0R+1 : IF SECTOR<DSKF (DRIVE f 10) THEN 290 
*FILEEND 

FILE. COUNT=FI し E. COUNT — 1 
， - SORT 

PRINT ”- SORTING -” 

FOR 1=0 TO FI し E. COUNT — 1 
FOR J=I+1 TO FILE.COUNT 

IF FILES (I)>FILE$(J) THEN SWAP FILES (I),FILES (J) 

NEXT J, I 

9 

9 - WRITE ON DISK 

INPUT" MAY I WRITE ON DISK (y/n) ，’； DUMYS 
IF DUMY$<> ，， y” THEN PRINT ” ABORTED.” : END 
J=0 : SECT0R=1 
FOR 1 = 0 TO FILE. COUNT 
し SET ROG$(J)=FILE$(I) 

J=J + 1 

IF J=16 THEN GOSUB 木 DISK. OUT : J = 0 : SECTOR=SECTOR+1 
NEXT I 

IF J=0 THEN 630 


2370 f - SUBROUTINES 

2380 木 DISK.READ 

2390 IF DTYPE=1 THEN DUMY$=DSKIS(DRIVE,TRACK,SECTOR) : RETURN 

2400 IF DTYFE=2 THEN DUMY$=DSKI$ (DRIVE,SURF,TRACK,SECTOR) : RETURN 

2410 IF DTYPE=3 THEN DUMY$=DSKI$(DRIVE,SURF,TRACK,SECTOR) : RETURN 

2420 PRINT ” DRIVE TYPE ERROR ”； : BEEP : END 

2430 木 DISK. WRITE 

2440 IF DTYPE=1 THEN DSKOS WDRIVE,WTRACK,WSECTOR : RETURN 

2450 IF DTYPE=2 THEN DSKOS WDRIVE,WSURF,WTRACK,WSECTOR : RETURN 

2460 IF DTYPE=3 THEN DSKOS WDRIVE,WSURF,WTRACK f WSECTOR : RETURN 

2470 PRINT "DRIVE TYPE ERROR ，， ； : BEEP : END 

2480 水 KEYC し EAR 

2490 STOP ON 

2500 CKB=&H35D9 : CALL CKB ’clear queue 
2510 STOP OFF 
2520 RETURN 


6 - 3 ファイルソー トリスト 


0 0 0 0 0 0 0 
4 5 6 7 8 9 0 
3 3 3 3 3 3 4 


0000000000000000000 

0123456789012345678 

1111111111222222222 
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590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 


WHILE J<16 

LSET ROG$(J)=STRING$ (16,255) : J=J + 1 
WEMD 

GOSUB 木 DISK. OUT 
PRINT M WRITE END. M 
FILES DRIVE : END 


*NOT\ SUPPORT 

PRINT ” THAT DRIVE IS NOT SUPPORTED. ，，： BEEP 
END 


本 DISK. OUT 

IF DRIVE.TYFE=2 THEM DSKOS 
IF DRIVE.TYPE=1 THEN DSKO$ 
IF DRIVE.TYPE=3 THEN DSKOS 
PRINT ” DRIVE TYPE ERROR ” 
END 


DRIVE, 1 ， 18,SECTOR : RETURN 
DRIVE,18, SECTOR : RETURN 
DRIVE,0 f DSKF(DRIVE,5),SECTOR 


: RETURN 


9-6-4 ファイル • リロケーシヨンリスト 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


’ FILE RE し〇 CAT ION 

* 

CONSOLE 0,25,1,0 : WIDTH 80,25 

CO し OR 0 : PRINT ”N88— DISK BASIC C C DIRECTORY RELOCATION 〕〕 ” 

PRINT , 

DEFINT A - Z 
» 

• - DRIVE NUMBER INPUT 

INPUT "DRIVE NUMBER n ;DRIVE 

IF DSKF(DRIVE, 1)=26 THEN DRIVE. TYPE=3 : GOTO 1130 
IF DSKF(DRIVE,1)<> 16 THEN ♦NOT-SUPPORT 
IF DSKF(DRIVE, 2) THEN DRIVE. TYPE=2 ELSE DRIVE.TYPE=1 
PRINT 


f - READ DIRECTORY to FILE$ () 

DIM FILES (79) # ROG$(15) ’FI し < 80 
FILE-END=0 

FOR 1 = 0 TO15 : FIELD 林 0, I 木 16 AS DUMY$ f 16 AS ROG$ (I) : NEXT 

FOR SECTOR=l TO 5 


IF DRIVE. TYPE=1 THEN 
IF DRIVE. TYPE=2 THEN 
IF DRIVE. TYPE=3 THEN 
IF DRIVE. TYPE=0 THEN 
FOR 1=0 TO15 


DUMY$=DSKI$(DRIVE,18,SECTOR) 

DUMY$=DSKI$(DRIVE,1,18,SECTOR) 

DUMY$=DSKI$(DRIVE,0,DSKF(DRIVE,5),SECTOR) 
♦NOT. SUPPORT 


IF ASC(ROG$ (I))=255 THEN FI し E.END=1 


IF FILE- END=0 THEN FI し E$ (SECTOR 木 16 — 16+I)=ROG$(I) 

IF FILE. END=1 THEN FILES (SECTOR^16-16+I)=STRING$(16,255) 
NEXT I 
NEXT SECTOR 


, - DISPLAY 

CONSOLE 0,25,1,0 : WIDTH 80,25 

LOCATE 0,0 : PRINT ” DIRECTORY RELOCATION” 

FOR SECTOR=l TO 5 

LOCATE (SECTOR — 1) 木 16,2 : PRINT ” SECTOR ”； SECTOR 
NEXT 

LOCATE 0,3 : PRINT STRINGS (79,” 一”） 

FOR 1=0 TO15 

FOR SECTOR=1 TO 5 
J=SECTOR - 1 
LOCATE J 木 16, 1+4 
FILE$=FI し E$(J 本 16+1) 

GOSUB 木 MAKE. FILE. NAME 
PRINT n ";FILE$ 

NEXT SECTOR 
NEXT I 

LOCATE 0,20 : PRINT STRINGS(79,” 一”） 
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1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 


1 - PREPARATION FOR EDIT 

CONSOLE ,,0 

KEY 1,CHR$ (255)+” MARK” 

KEY 2,CHR$ (&HFD)+” SWAP” 

KEY 3,CHR$(&HFC)+”RENAME” 

KEY 4,”” 

KEY 5,CHR$ (&HFE)+”END” 

CONSOLE "1 

COMMAND$=CHR$(31)+CHR$(30)+CHR$ (29)+CHR$ (28) 
COMMAND$=COMMAND$ +CHR$(255)+CHRS(254)+CHRS (253)+CHR$ (252) 
MARK=-1 : CURSOR=0 


1610 ’- EDIT 


1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 


X=(CURSOR ¥ 16) 水 16 : Y= (CURSOR MOD 16) +4 

CCO し OR=4 : IF CURSOR 二 MARK THEN CCO し OR=6 

COLOR® (X,Y) — （ X+l1,Y),CCOLOR 

LOCATE ，售 0 : CKB=&H35D9 : CALL CKB 

P=INSTR (COMMANDS, INPUTS (1)): IF P=0 THEN 1660 

ON P GOSUB 木 DN, 木 UP • 本 LF, 木 RI, 本 MARK, 木 EX IT, 水 SWAP • ，木 RENAME 

CCOLOR=0 : IF CURSOR=MARK THEN CCOLOR=2 

CO し OR® (X,Y) — （ X+l1,Y)•CCOLOR 

CURSOR=NEWCURSOR 

GOTO 1620 
» 

*DN 

NEWCURSOR=CURSOR+1 
IF NEWCURSOR>=80 THEN NEWCURSOR=0 
RETURN 
*UP 

NEWCURSOR=CURSOR-1 

IF NEWCURSOR<0 THEN NEWCURSOR=79 

RETURN 

礼 F 

NEWCURSOR=CURSOR-16 

IF MEWCURSOR<0 THEN NEWCURSOR=NEWCURSOR+80 
RETURN 

ポ RI 

NEWCURSOR=CURSOR+16 

IF NEWCURSOR>79 THEN NEWCURSOR=NEWCURSOR-80 
RETURN 
ホ MARK 

CKB=&H35D9 : CALL CKB • clear queue 
MX=(MARK ¥ 16) *16 : MY= (MARK MOD 16) +4 
IF MARK>_1 THEN COLOR® (MX f MY)- (MX+11 f MY) f 0 
MARK=ClJRSOR 

IF ASC(FILES(MARK))=255 THEN BEEP : MARK=-1 
RETURN 
ホ EX IT 

CKB=&H35D9:CAL し CKB •clear queue 
MX=(MARK ¥ 16) 木 16 : MY= (MARK MOD 16) +4 
COLOR @(MX,MY)-(MX+11,MY),0 

MX= (CURSOR ¥ 16) 本 16 : MY=(CURSOR MOD 16) +4 

COLOR @(MX f MY)-(MX+ll f MY) f 0 

CONSOLE ,,0 

KEY l,”load "+CHR$ (34) 

KEY 2,” files ” 

KEY 3,” go to ，， 

KEY 4, ，， list ” 

KEY 5, ” run ，， +CHR$ (13) 

CONSOLE ,,1 
LOCATE ,,1 
GOTO 本 WRITE.ON. DISK 
ホ SWAP. 

CKB=&H35D9:CALL CKB •clear queue 
IF MARK<0 THEN BEEP : RETURN 

IF ASC (FI し E$ (CURSOR))=255 THEN BEEP : RETURN 
SWAP FILE$ (MARK) , FI し E$ (CURSOR) 

MX= (MARK ¥ 16) *16 : MY= (MARK MOD 16) +4 
FILE$=FILE$ (MARK) : GOSUB ♦MAKE. FI し E.NAME 
LOCATE MX,MY : COLOR 2 : PRINT ” ";FILE$ 
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2190 MX= (CURSOR ¥ 16) *16 : MY= (CURSOR MOD 16) +4 
2200 FILES=FILE$ (CURSOR) : GOSUB 木 MAKE. FILE. NAME 
2210 し〇 CATE MX,MY : CO し OR 2 : PRINT ” ”； FILES 

2220 COLOR 0 
2230 RETURN 
2240 木 RENAME 

2250 CKB=&H35D9:CALL CKB ’clear queue 

2260 P=ASC(FI し E$ (CURSOR)) : IF (P=0) OR (P=255) THEN BEEP : RETURN 
2270 CONSOLE 22,23 : C し S :し〇 CATE,,1 

2280 INPUT ” NEW FILE NAME”；FI し E$ : IF FI し E$=”” THEN 2450 

2290 IF (ASC(FILE 法） =0) OR (ASC (FI し E$)=255) THEN BEEP : GOTO 2280 
2300 P=INSTR(FI し E$, ”•，，）’ ： NF I し E$=STR I NGS (9, ” ”） 

2310 IF P=1 THEN BEEP : GOTO 2280 

2320 IF P=0 AND LEN(FILE$)>6 THEN FILES=LEFT$(FILES, 6)+". ^+MID$(FILES, 7 f 3) 

2330 IF P=0 THEN P=7 

2340 MID$ (NFILES,1,6)=LEFTS(FILES, P — 1) 

2350 MID$ (NFILES,7, 3)=MID$(FILES, P+1) 

2360 FOR P=0 TO 79 

2370 IF ASC(FILES(P))=255 THEN P=79 : GOTO 2400 

2380 IF し EFTS(FI し ES(P),9)<>NFI し E$ THEN 2400 

2390 PRINT ’’EXIST FILE NAME. ” ； CHR$ (7) : GOTO 2280 

2400 NEXT 

2410 MID$(FILE$(CURSOR),1,9)=NFILE$ 

2420 MX=(CURSOR ¥ 16) 木 16 : MY= (CURSOR MOD 16) +4 
2430 FILE$=FILE$ (CURSOR) : GOSUB 木 MAKE. FI し E. NAME 
2440 LOCATE MX, MY : COLOR 2 : PRINT ，， ，，； FILE$ 

2450 CO し OR 0 : LOCATE,,0 

2460 C し S : CONSOLE 0,25 

2470 RETURN 
2480 f 

2490 ’ - WRITE RELOCATED DIRECTORY AND END 

2500 ホ WRITE. ON. DISK 

2510 LOCATE 0,22:INPUT ” WRITE ON DISK (y/n/r) ” ； DUMY$ 

2520 IF DUMY$=”y” THEN 2550 

2430 FILE$=FILE$(CURSOR) : GOSUB *MAKE. FILE. NAME 

2440 LOCATE MX,MY : CO し OR 2 : PRINT ” ”； FILES 

2450 COLOR 0 : LOCATE,,0 

2460 CLS : CONSOLE 0,25 

2470 RETURN 

2480 • 

2490 • - WRITE RELOCATED DIRECTORY AND END 

2500 ホ WRITE. ON. DISK 

2510 LOCATE 0,22:INPUT ” WRITE ON DISK (y/n/r) ” ； DUMY$ 

2520 IF DUMY$=”y” THEN 2550 

2530 IF DUMY$ 二，， r ’， THEN LOCATE 0,22 : PRINT SPCC30) ; : RETURN 1490 f EDIT 

2540 PRINT ” ABORTED.” : END 
2550 FOR SECTOR=l TO 5 
2560 FOR J=0 TO15 

2570 LSET ROG$ (J)=FILE$(SECTORS16-16+J) 

2580 NEXT J 
2590 GOSUB *DISK.OUT 
2600 NEXT SECTOR 
2610 FILES DRIVE 
2620 END 
2630 • 

2640 • - MAKE FILENAME ROUTINE 

2630 ホ MAKE. FILE. NAME 

2660 IF LEFTS (FI し E$,9)=STRING$ (9,255) THEN FILENAME $=”（ Empty ) ” : GOTO 2690 
2670 FI し ENAME$=LEFTS (FI し E$,6)+” ” +MID$(FILES,7 f 3) 

2680 IF ASC (FILENAMES)=0 THEN FILENAME$ = ”（ Killed )” 

2690 FILE$=FILENAME$ 

2700 RETURN 
2710 f 

2720 f - DSKO$ ROUTINE 

2730 ホ DISK.OUT 

2740 IF DRIVE. TYPE=1 THEN DSKO$ DRIVE,18, SECTOR : RETURN 

2750 IF DRIVE. TYPE=2 THEN DSKO$ DRIVE,1 # 18, SECTOR : RETURN 

2760 IF DRIVE. TYPE=3 THEN DSKOS DRIVE,0,DSKF (DRIVE,5) f SECTOR : RETURN 

2770 PRINT ” DISK TYPE ERROR ” 

2780 END 
2790 f 
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2800 ’ - NOT SUPPORTED ERROR 

2810 木 NOT. SUPPORT 

2820 PRINT THAT DRIVE IS NOT SUPPORTED. 
2830 END 



9 - 6 - 5 選択的ファィル転送リスト 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 


f Selective File Transfer C1984. 6. 9) 

DEFINT A-Z 

ON STOP GOSUB 木 ENDE : STOP ON 
ON ERROR GOTO 木 ON. ERROR 

f 

’- Arrays & Constants 

DIM FILES (100), ATRC100) : FCT = 0 

DIM DIR$(15) : FOR 1 = 0 TO15 : FIELD 林 0,1 本 16 AS DMS,16 AS DIRS(I) : 
FIELD 林 1,128 AS Al$,128 AS BU 
FIELD 林 2,128 AS A2$,128 AS B2S 
MAX. DR = PEEK(&HEC7D) 

DEF FNDTYP(DR) = PEEK(&HEF63+DR) 

IOBUF0 = VARPTR ( 料 0)+9 

f - Enter drive 林 

WIDTH 80 f 25 : CONSOLE 0,25,1,0 : LOCATE ,,1 _ 

LOCATE 10, 8 : PRINT ”■■■ Selective File Transfer ■■■■”： PRINT 

9 

LOCATE 12,10 : PRINT ”>>Source drive number: ”； 

LINE INPUT A$ : S.DR=VA し （ A$) 

IF S-DR<1 OR MAX. DR<S. DR THEN GOSUB 木 BAD. DRIVE : GOTO 1200 


LOCATE 12,12 : PRINT 11 »Destination drive number: 

LINE INPUT A$ : D.DR=VALCA$) 

IF D.DR<1 OR MAX. DR<D. DR OR D.DR=S.DR THEN GOSUB 木 BAD.DRIVE : GOTO 

t 

* - Set drive cons tans by S. DR, D. DR 

S. MAX, DIRSC = DSKF(S. DR, 8) 


D. FRE = DSKF (D. DR) 

D. MAX. DIRSC = DSKF (D. DR, 8) 


’ - Diaplay Source directory 

CONSOLE 0,25,0,0 : WIDTH 80,25 : LOCATE 0,0,0 
F$= ” Drive 料 _> Drived (FREE )” 

PRINT n WM Selective File Transfer Hi M ; 

PRINT USING F$; S.DR f D. DR 
GOSUB 木 DISP. FREE 
PRINT STRINGS (78, ，，一”） 

FOR SECTOR=l TO S. MAX. DIRSC 
DR = S. DR : GOSUB *DSKI. DIR 
FOR 1=0 TO15 

IF ASC (DIRS(1))=0 THEN 1580 

IF ASC (DIRS (I) )=255 THEN ホ END. OF. DIR 


LOCATE (FCT MOD 5) 木 16+2 ， FCT¥5 + 2 
FILES (FCT)= し EFT$ (DIR$ (I), 9) 

ATR(FCT)=ASC(MID$ (DIR$ (I), 10)) 

FILES = FILES (FCT) : ATR = ATR (FCT) : FCT = FCT + 1 
PRINT LEFTS(FILES,6); 

IF ATR AND &H80 THEN PRINT ”•”； : GOTO 1550 
IF ATR AND 1 THEN PRINT ” 木 ”；: GOTO 1550 

PRINT ，，”； 

PRINT MID$ (FILES,7, 3); 

IF FCT >= 90 THEN 木 END. OF\ DIR 

NEXT 

NEXT 

ホ END. OF. DIR 

し AST •し INE = (FCT — 1)¥5 + 3 


NEXT 


1240 


159 



- Transfer a file ” FILE$” 

木 XFER. A. FILE 

OPEN HEX$(S. DR)+” ： ”+FILE$ AS 林 1 
OPEN HEX$(D. DR)+”：”+FI し E$ AS «2 


1620 LOCATE 0,LAST •し INE : PRINT STRINGS (78, ”一，，） 

1630 PRINT ” Cursor keys to move, Space to select/deselect,^; 

1640 PRINT ” Re turn key to end ” 

1650 LOCATE 2, LAST •し INE+3 : PRINT ” Select the files to transfer. 1 
1660 CO し OR 2 

1670 LOCATE 2, LAST. LINE+4 : PRINT ” 

1680 CO し OR 0 
1690 f 

1700 f - Select x fe r files 

1710 CFN = 0 
1720 ’ 

1730 水 KEY. IN 

1740 PX = (CFN MOD 5) ホ 16+2 : PY = CFN¥5 + 2 
1750 COLOR® (PX,PY) — （ PX+9,PY),4 
1760 KIN = ASCCINPUTS (1)) 

1770 CKB = &H35D9 : CALL CKB f clear queue 
1780 IF KIN = 27 THEN ホ ENDE 

1790 IF KIN = 32 THEN GOSUB 本 MARK : GOTO 木 KEY. IN 
1800 IF KIN =13 THEN 水 DO.XFER 
1810 IF KIN<28 OR KIN>31 THEN ホ KEY. IN 
1820 COLOR® (PX,PY)-(PX+9, PY) , 0 

1830 ON KIN — 27 GOSUB 本 M し EFT, 水 MRIGHT, 木 MUP, ^MDOWN 
1840 GOTO 木 KEY.IN 
1850 * 

1860 本 MLEFT 

1870 CFN = CFN + 1•• IF CFN>=FCT THEN CFN=0 
1880 RETURN 
1890 木 MRIGHT 

1900 CFN = CFN -1:IF CFN<0 THEN CFN = FCT - 1 
1910 RETURN 
1920 ホ MUP 

1930 IF CFN>4 THEN CFN = CFN - 5 
1940 RETURN 
1950 ホ MDOWN 

1960 IF CFN<FCT-5 THEN CFN = CFN + 5 
1970 RETURN 
1980 *MARK 

1990 ATR (CFN) = ATR (CFN) XOR &H100 
2000 IF (ATR(CFN) AND &H100)=0 THEN 2050 

2010 GOSUB ホ CALC.LOF : D. FRE = D. FRE — LOFILE : GOSUB ホ DISP. FREE 
2020 LOCATE PX-1, PY : PRINT ” 〔” 

2030 LOCATE PX+10, PY : PRINT ”〕 ” 

2040 RETURN 

2050 GOSUB *CALC.LOF : D. FRE = D. FRE + LOFILE : GOSUB 木 DISP. FREE 
2060 LOCATE PX—1, PY : PRINT ”，， 

2070 LOCATE PX+10, PY : PRINT ” ” 

2080 RETURN 
2090 f 

2 100 ' - Excute file xfer 

2110 ホ DO. XFER 

2120 COLOR® (PX,PY)-(PX+9,PY),0 
2130 GOSUB ホ CLEAR.CMDL 
2140 FOR CFN = 0 TO FCT-1 

2150 IF (ATR (CFN) AND &H100) = 0 THEN 2250 
2160 FILES = FILES (CFN) : ATR = ATRCCFN) AND &HFF 
2170 LOCATE 0, し AST. LINE + 2 

2180 PRINT ” Transfering : 〔”； 

2190 PRINT し EFTS(FI し E$, 6); 

2200 IF ATR AND &H80 THEN PRINT ”，； : GOTO 2230 

2210 IF ATR AND 1 THEN PRINT ” 木 ”；: GOTO 2230 

2220 PRINT ” ”； 

2230 PRINT MID$ (FI し E$,7,3 ) ” ； 

2240 GOSUB ホ XFER. A. FILE 

2250 NEXT 
2260 f 

2270 GOTO ホ ENDE 
2280 • 


0 0 0 0 
9 0 12 
2 3 3 3 
2 2 2 2 
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2330 f 

2340 FOR I=LOF(l) TO1 STEP 一 1 
2350 GET 林 1,I 

2360 し SET A2S=A1S : LSET B2S=B1$ 

2370 PUT»2, I 
2380 NEXT 
2390 ’ 

2400 CLOSE 
2410 f 

2420 FOR SECTOR=l TO D.MAX.DIRSC 
2430 DR = D. DR : GOSUB 本 DSKI.DIR 
2440 FOR 1=0 TO15 

2450 IF ASC(DIRS (I))=0 THKN 2480 :， killed file 

2460 IF ASC(DIR$(I))=255 THEN 本 ERR.NOFILE 
2470 IF LEFTS (DIRS(I),9) 二 FILES THEN 2520 
2480 NEXT 
2490 NEXT 

2500 GOTO 木 ERR.N 〇 FILE 
2510 • 

2520 MID$ (DIRS(I),10,1)=CHRS(ATR) 

2530 DR = D. DR : GOSUB 木 DSKO. DIR 
2540 f 
2550 RETURN 
2560 1 

2570 ’- dsk i directory sector of drive DR 

2580 ホ DSKI. DIR 

2590 DTYPE = FNDTYP (DR) 

2600 IF DTYPE = 0 THEN DMS = DSKIS(DR, 0, 35, SECTOR) 

2610 IF DTYPE =1 THEN DMS = DSKI $ (DR,1,18, SECTOR) 

2620 IF DTYPE = 2 THEN DMS = DSKIS (DR, 18 ， SECTOR) 

2630 IF DTYPE = 3 THEN DMS = DSKI $ (DR,1,18, SECTOR) 

2640 RETURN 
2650 # 

2660 ’ - dsko directory sector of drive DR 

2670 ホ DSKO. DIR 

2680 DTYPE = FNDTYP(DR) 

2690 IF DTYPE = 0 THEN DSKOS DR, 0, 35, SECTOR 

2700 IF DTYPE =1 THEN DSKOS DR,l f 18, SECTOR 

2710 IF DTYPE = 2 THEN DSKO$ DR,18, SECTOR 

2720 IF DTYPE = 3 THEN DSKO$ DR,1,18, SECTOR 

2730 RETURN 
2740 f 

2750 ' - Error section 

2760 ホ BAD. DRIVE 

2770 LOCATE 12,CSRLIN — 1 : PRINT ”Bad drive number";SPC(20) : BEEP 

2780 RETURN 
2790 f 

2800 ホ ERR. NOFILE 

2810 PRINT ” Err: no file” : BEEP : END 
2820 f 

2830 *ON. ERROR 

2840 LOCATE f ,1: ON ERROR GOTO 0 : END 
2850 * 

28b0 ’- Clear command lines 

2870 ホ CLEAR. CMDL 

2880 CONSOLE LAST.LINE+1, し AST. LINE+5 : CLS 
2890 CONSOLE 0, 25 
2900 RETURN 
2910 f 

2920 ’- Calculate LOF of FILES (CFN) 

2930 >KCALC. LOF 

2940 OPEN HEX$ (S. DR)+”：”+FI し E$ (CFN) FOR INPUT AS«1 

2950 し OFI し E = (し OF(l)+7) ¥ DSKF (S- DR, 6) 

2960 IF し OFILE = 0 THEN LOFILE =1 
2970 CLOSE 
2980 RETURN 
2990 1 

3000 ’- Display free of D.DR 

3010 ♦DISP. FREE 

3020 LOCATE 54,0 : PRINT USING ”《«« ”； D.FRE 

3030 RETURN 
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3040 f 

3050 * - STOP & ESC 

3060 ホ ENDE 

3070 STOP OFF 

3080 GOSUB 木 CLEAR. CMD し 

3090 CO し OR 0 

3100 CONSOLE 0,25,1 

3110 LOCATE 0, し AST • し INE+2,1 

3120 END 
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第 10 章サブシステム 


PC -8801 mkn は、最初から5インチフロッピーディスクを内蔵するように設計されてい 
ます。 PC -8801 とのコンパチビリティーから、 PC -8801 用ディスクドライブである 
PC - 80831と同じシステムが採用されており、従来のディスク用ソフトがそのまま使えるよ 
うになっています。 

このディスク制御用のシステムは、システム専用の CPU を持ち、 PC -8801 mklI 本体の 
CPU から独立して動いています。第10章では、このサブシステムの使い方を中心に説明し 
ていきます。 



PC-8801+PC- 80831 



図 10 -A 
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10-1 メモリマップ 


PC - 8801 mkn のサブシステムには、メインシステムと同じ Z -80 A コンパチブルな CPU が 
使われ 、 ROM • RAM 共にメインシステムとは別に用意されています。図 10-1- A が、その 
メモリマップです。ディスク制御用のプログラムが入った ROM が 2 K バイト、 RAM が 16 K 
パ'イトあります。 RAM 16 K バイトのうち、サブシステムが使っているのは、ディスケット 
へ書き込むデータを置くための 4 K バイト （4000 H 〜 4 FFFH )、 ディスケットから読み込ん 
だデータを置くための4 K バイト （5000 H 〜 5 FFFH )、 ワークエリア及びスタックエリアの 
256バイト （7 F 00 H 〜 7 FFFH ) だけです。600 0 H 〜 7 EFFH の RAM エリアは、ユーザーが勝手 
に使っても、サブシステムには何の影響も与えません。 


FFFFH 


8000H 


7F00H 


6000H 


5000 H 


4000H 


800H 


0H 


つ 未 

使 

用 二 

ワーク • エリア及びスタック•エリア 

穴 

き 領 

域 

リ- 

ド•バッファ 

ラィ 

卜 •バッファ 

未 

使 

用 

DISK 制御用プログラム 


RAM16K バイ 


ROM 2K ノくイ 


図 10- 1 -A メモリマップ 
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10-2 メインシステムとのインタフェース 

10-2-1 ハンドシェイクのアルゴリズム 

メインシステムとサブシステム間のデータのやり取りは、汎用パラレルインタフェース 
LSI • " PD -8255 を用いた3線式のハンドシェイクによって行なわれます。ハンドシェイク 
とは、信号の交換によってデータのやり取りを行なう方法のことです。コンピュータ以外の 
題材で、例を上げてみましょう。 

「8月の始め、私は息子に、東京の祖母の所へ遊びに行く約束をさせられました。お盆に 
行く予定にしていたのですが、彼はそれまで待てないらしく、何度もせがむので、一人で行 
かせることにしたのです。祖母に電話で了解を得て（①）、その週の日曜日、飛行機に乗せて 
やりました。 

飛行機が離陸するのを見届けてから祖母の家へ電話をし、今出たことを告げ(②）、家に帰 

りました。数時間後祖母より無事着いたとの連絡があり（③) ... .」 

福岡にいる私（メインシステム）と東京にいる祖母（サブシステム）との間で、息子（データ） 
をハンドシェイクしたことになります。 

ハンドシヱイクとは、大事なデータ（息子）を確実にやり取りするための手順と考えて下さ 

い。 



図 10- 2 - A 
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サブシステムが「準備ができたので、データを送っても良い」というので（①） 

メインシステムはデータを送り、そのことをサブシステムに伝えます。（②） 

サブシステムはデータを受け取ると、そのことをメインシステムに知らせます。（③） 

こうすればデータは、間違いなく メインシステムからサブシステムへ送られることになり 
ます。そして①，②，③ 3 つの電話が、それぞれ 3 つの役割を持った信号ということになる 
のです。 

信号線は電圧の高い.低いで1，0を示すことができます。信号が0から1になったとき、 
ある意味を持つように予め決めておきます。ですから信号は普通、0の状態にしておかなけ 
ればなりません。でないと、誤った意味を伝えることになります。 

3 線式ハンドシェイクで使われる 3 つの信号は、 RFD, DAV, DAC と呼ばれ、それぞれ 
が前の例の①，②，③にあたる意味を持っています。 

( 1 )RFD (Ready For Data) 

データを受け取る側が、 RFD を1にすることで、データを送る側に、データを受け取る準 
備ができていることを知らせます。 

( 2 ) DAV ( Data Valid) 

データを送る側が、 DAV を 1 にすることで、データを送ったことを受信側に知らせます。 

( 3 ) DAC ( Data Accepted) 

データを受け取る側が、 DAC を 1 にすることで、送信側にデータを受け取ったことを知 
らせます。 

図 10-2- B を見て下さい。メイ ン システムからサブシステムへデータを送る ハンド シェイ 
クの フロー チヤ ー トです。注意しなければならないのは、使った信号は必ず0に戻しておく 
ということです。図 10-2-C は、 PC-8801mkl] で使われている ハンド シェイクルーチンに 
基づいた フロー チヤートです。 RFD を 0 に戻すときのチェックを省略し、 DAC= 1 のチェッ 
クの所で兼用させている以外はまったく同じです。 
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10-2-2 高速ハンドシェイクのアルゴリズム 

データの ハンド シヱイクの欠点は、信号のチヱックの回数が多いために、データの転送に 
時間がかかるということです。 

図 10-2 -B では、1バイトのデータ転送に6回も信号のチェックが行なわれています。もし、 
これが3回に減れば、速度は2倍になるはずです。1バイトの転送に使う信号のチヱック回 
数を減らすことを考えてみましょう。図 10-2 -C では、各信号が0から1になるときに意味を 
持たせてハンドシェイクを行ない、信号を 0—1 にしたのと同じ手順で1 -0 に戻していま 
す。 

では、1から0になるときも意味を持たせてデータのやり取りを行なえばどうでしょうか。 
そうすれば1回の ハン ドシェイクで2バイトのデータを送受信できることになります。 

このように考えて高速化したものが図 10- 2 -D です。 PC - 8801 mkDI でも、データの転送 
のとき、高速化したハンドシェイク（図 10-2- E ) を使っています。 

では、もっと速くするにはどうしたらよいでしょうか。図 10-2- F を見て下さい。転送す 
るバイト数が決まっていれば、このようなこともできます。これで20〜30%速くなります。 

システムソフトのアドベンチャーゲーム、“ミオのミステリーアドベンチヤー’’で使った 
のがこの手法です。 

このゲームは、システムソフト初のアドベンチャーゲームで、高速ハンドシェイクと画面 
データの圧縮により、速いものでは1 〜 2秒で絵を表示できるようになっています。 48 K バ 
イトあるグラフィック画面のデータを 15 K バイト程に圧縮すると、サブシステムの RAM 上 
にすベておくことができます。それから高速転送してグラフィック画面に展開してやると、 

1〜2秒で表示したように見えます。ただし、絵が複雑すぎて圧縮率が下がると、極端に表 
示速度が遅くなります。 

この欠点を、ディスタの制御プログラムを独自に作ることで解決したのが“ミコとアケミ 
のジャングルアドベンチャー”です。このアドベンチャーゲームはデイスケット2枚に約80 
種類の絵が入っており、ディスクのアクセスランプがっいてから2〜5秒後には絵の表示が 
完了するようになりました。 
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終了 
















さて、ここまではハンドシェイクのチェック回数を減らすことで速度を上げていきました。 
次は、1回のハンドシェイで送れるデータの数を増やすことを考えてみましよう。これは 
8255という LSI でのみ可能な手段で、他の LSI によるハンドシェイクでは使えません。 

8255には3つの8ビットポートがあり、それぞれを A ， B，C といいます。 

ポート A をデータの入力、ポート B をデータの出力、ポート C をハンドシェイクの信号 
RFD , DAV ， DAC 用と決められています。この状態ではデータは1バイトしか送れません。 

そこで、データを送る場合はポート A もデータの出力に使い、データを受け取る場合はポー 
卜 B もデータの入力に使うとしたらどうでしょうか？ 

図 10- 2 - G を見て下さい。このように、一度に2バイトのデータを送受信できます。つま 
り、速度は2倍になるわけです。 



出カホートが1つのとき（ホート B のみ) 


V 



出カホートが2つのとき（ホート A とホート B ) 


図10 - 2 - G 
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10-2- 3 8255 の使い方とハンドシェイクルーチンのコード化 

メインシシテムとサブシステムは、二つの 8255( 正確には汎用パラレルインタフェース 
LSI , " PD 8255 AC - 5 ) を介しでつながっています。ハンドシェイクでのデータ.信号のや 
り取りは、この 8255 を使って行なうわけです。ですから、ハンドシェイクのアルゴリズムか 
ら実際のプログラムを作るには、 8255 の使い方を理解しなければなりません。 


メインシスア厶 サブシステム 



8255 には 8 ビットの入出カポートが 3 個あり、それぞれをポート A ， ポート B ， ポート C と 
呼ぶことは前に述べました。各ポートは、その入出カモードを自由に設定でき、特にポート 
C は上位 4 ビットと下位 4 ビットを別々に設定できるようになっています。また、ポート C 
についてのみ、ビット単位でビットセット、リセット （ 1にしたり0にしたりすること）する 
機能があります。 

二つの 8255 は、共にポート A をデータの入力、 ボー ト B をデータの出力、 ポー ト C の下位 
4 ビットを信号の入力、上位 4 ビットを信号の出力に使うようにハード、ソフト共に設定さ 
れています。図 10- 2 - H を見て下さい。ハード的（回路的）にはこのようなつながり方をして 
います。メインシステム.サブシステムどちらから見ても、ポート B でデータを出力してポー 
卜 A でデータを受け取るようになっているのです。 



"PD8255 "PD8255 


メインシステム サブシステム 

図 10- 2 - H 
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メインシステム サブシステム 

図 10- 2 - 丨 8255によるインタフェース 

それでは8255の初期設定を行なってみましょう。 

8255 のコン ト ロールポー トは1/〇ア ドレスの FFH になって います。 コン ト ロールボート 
にコントロールワー ドを出力 （ OUT ) すれば、初期設定は完了します。 

コン トロールワー ドの詳細は次のようになっています。 
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コントロ ー ルポ ー ト OFFH 


コントロ ール 
ワード 


D? _D6 _Ds _D4 Da D 2 D) Do 

~~\ i ~ r t i i ~ f i グルーブ巳 

i ホート c (下位）入力 

0 ボート B 出力 

0 モード0 

グ ルーフ A 

〇ホート C (上位）出力 

1 ボ ー ト A 入力 

00 モード0 

1 モード選択 

V 

10010001 (2 進）=91 (16 進） 



機能制御 

D 



1 

モード選択 


ホート C 
(上位） 

D 

出力 

1 

入力 

ボー ト A 

〇 

出力 

1 

入力 

モード 

00 

モード0 

01 

モード1 

IX 

モード2 


■ 

■ 


ホ ー ト C 

0 

出力 

■ 


(下位） 

1 

入力 

■ 


■ 

D 

出力 


D 

入力 


モード： 

〇 

モード0 


1 

モード1 


図 10- 2 - J 

8255はポート A 及びポート C の上位4ビット、ポート B 及びポート C の下位4ビットをグ 

ループ A ， B と二つに分け、それぞれについて、いくつかのモードを選択できるようになっ 
ています。 

モード0:基本的な入出カポート 

モード1: コントロール 信号、ステータス信号による制御を伴う入出カポート 
モード2:双方向データを扱う入出カポート 

モード1， 2はハード的にハンドシェイクを行なうモードで、 8801 mkII では使っていま 
せん。グループ A ， B 共にモード0を選択します。そして各ポートの入出力を決めると、コ 
ントロールワードは 91 H になります。 

OUT & HFF , & H 91 

とすると8255の初期設定は完了します。この設定はメインシステム、サブシステム共にイニ 
シャライズのときに行なわれます。 

各ポートへのデータの入出力は、定められた I / O アドレスを IN , OUT (入出力命令）する 
ことで行なえます。 I / O アドレスはメイン、サブシステムとも同じ値で、ポート A は FCH 、 
ポート B は FDH 、 ポート C は FEH になっています。例えばポート B からデータを出力すると 
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きは OUT & HFD , BDATA 、 ポート A からデータを入力するときは 、 ADATA = INP (& HFC ) 
を実行します。 

ポート C はハンドシェイクの制御信号 RFD ， DAV , DAC に使うので、入力はポート A の 
場合と同じですが、出力はビットセット/リセット機能を使います。 

コントロールワー ドの最上位ビットが0のとき、 コン ト ロールワー ドは モー ド選択ではな 
く、ビット単位でのセット/リセットを表わします。 

コント ロールポー ト OFFH 


D; Ds D j D：{ D2 Di Do 



ビットセツ 
リセツト 


〇 

リセット 

1 

セット 


ボート C のビット選択 

ビット No . 

〇 

1 | 

2 

3 

4 

5 

6 

7 

Di 

0 

I 

〇 

1 

0 

1 

0 , 

1 

d 2 

0 

0 

1 

1 

0 

0 . 

1 

1 

D 3 

0 

〇 

〇 

〇 

1 

1 

1 

1 


機能制御 


0 

ビットセット，リセット 

1 

モード選択 


〇ビットセット，リセット 


図 10- 2 - K 

ビット1〜3で、ポート C の何ビット目かを指定し、ビット0でセット （ 1にする）するか、 
リセット （ 0にする）するかを決めます。 

例えば、ポート C の第 5 ビッ トを1にしたければ、 コン ト ロール ポートに⑻⑻1011 (2 進约)= 

11"。雜)を出力します。 8801/ mkll の場合、ポート C の第4ビットを DAV 、 第5ビットを RFD 、 
第6ビットを DAC 、 第7ビットを ATN の相手側への出力として用い、第〇〜第3ビットを 
DAV , RFD , DAC , ATN の入力として用います。 

図 10-2- H を見て下さい。ハード的に2つの8255の間で、メインシステムのポート C の第 
4〜7ビットはサブシステムのポート C の第〇〜3ビット、サブシステムのポート C の第4 
〜7ビットはメインシステムの第〇〜3ビットに接続されています。そしてコントロール 
ワードは 91 H と同じなので、どちらから見ても第4〜7ビットで出力した信号は、相手側の 
第〇〜3ビットへ送られるのです。 

メインシステムで DAV を1にして、サブシステムでそれをチェックするマシン語のプログ 
ラムを考えてみましょう。 

DAV 信号への出力は第4ビットなので、コントロールポートへ0000100 1(2 進数)= 9 U 。 進数丨を 

OUT すれば、 DAV は1になります。それをサブシステム側でチェックするには 、 IN A ， 
(0 FEH ) (サブシステム•メインシステム共にポート C の I / O アドレスは 0 FEH ) を実行し、 
ボート C の入カデータ （ Acc に入っている）の第〇ビットが0か1かを判断します。もし第〇ビッ 
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卜が 1 なら、メインシステムより DAV= 1 の信号が来たことになります。 

メインシステム側 サブシステム側 


CM EQU 

OFFH 

PORTC 

EQU 

〇 FEH 


LD 

A, 9 

CKDAV1 : 

IN 

A, (PORTC) 


OUT 

(CM), A 


AND 

0000000 1 B 



— 

- ^ 

JR 

Z, CKDAV1 

( 氺 ) 


D A V=1 > 

メイン V サブ 


D A V 


図 10- 2 - L 



ポー ト C 
ビット 0 


*DAV が 0 のとき AND 1 を実行すると結果は 0 となり、 Zero flag が 1 になるので、 CKDAV 
1 にジャンプします。 DAV が 1 のときは AND 1 を実行すると結果は 1 となり、 Zero flag 
が 0 になるので、ジャンプしません。 


出力したポート C のデータ X X X 0 X X X X 


xxxl X X X X 


入力したポート C のデータ X X X X X X X 〇 



and [〇〇〇〇 00 01 AND 10〇〇〇_〇〇〇1 


0000 0000 


0000 0001 = 


ここまでくるとハンドシェイクのアルゴリズムをプログラムすることができます。 
図 10- 2 -B を BASIC のプログラムで書いてみましよう。 


データを送る側 

100 CM=&HFF : PA=&HFC : PB:&HFD : PC=&HFE 
110 IF(INP(PC) AND 2)=0 THEN 110 
120 OUT PB, A 
130 OUT CM, 9 

150 IF (INP(PC) AND 4)=0 THEN 150 
160 IF (INP(PC) AND 2) = 1 THEN 160 
170 OUT CM, 8 

180 IF (INP(PC) AND 4)=1 THEN 180 


データを受け取る側 

100 CM=&HFF : PA=&HFC: PB=&HFD ： PC=&HFE 
110 OUT CM,11 

130 IF(INP(PC) AND 1)=0 THEN 130 
140 A=INP(PA) 

150 OUT CM,13 
160 OUT CM,10 

170 IF (INP(PC) AND 1)=1 THEN 170 
180 OUT CM,12 


〔解説〕 


100 : コマン ドポート 

110 : RFD = 1 
120 :データを送る 

130 : DAV = 1 


3 つのポートの設定 150 :DAC = 1 

160 : RFD = 0 
170 : DAV = 0 
180 :DAC = 0 


140 : データを 受け取る 
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サブシステムの制御は コマン ドを送ることで行なわれます。サブシステムの ROM に入っ 
ているプログラムは30種類の コマン ドを持っていて、 コマン ド番号とその コマン ドの実行に 
必要なデ ー タを送ることで、簡単にディスクを動かせるようになっているのです。 

実際の ハン ドシェイクでは、この コマン ドとデータを区別するために ATN ( ATtentioN ) 
と呼ばれる信号を用います。 

メイ ン システムからサブシステムへ コマン ドを送るときのみ ハン ドシェイクの先頭で 

ATN を1にします。それ以外の場合、データを送るときとデータを受け取る場合は ATN は 

0のままにしておきます。これ以外は図 10- 2 - C のアルゴリズムとまったく同じです 。 ATN 
はポート C の第7ビットで出力し、第3ビットで入力するようになっています。以下にサブシ 

ステムとハンドシェイクを行なうためのプログラムを載せておきます。 



図10 - 2 - M 
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サブシステムとのハンドシ I イクルーチン 

1) * INTHS ••変数の初期化 

1000 * INTHS 

1010 CM=&HFF ： PC=CM- 1: PB=CM-2 : PA=CM~3 
1020 RETURN 

2) * SNDCOM :コマンドを送る 
* SNDPAR ••データを送る 


1030 *SNDCOM 

1040 OUT CM, &HF — ATN を 1 にする 
1050 *SNDPAR 

1060 IF (I NP(PC) AND 2)=0 THEN 1060 
1070 OUT CM, &HE —ATN を 0 にする 
1080 OUT PB, A 
1090 OUT CM, 9 

1100 I F (I NP(PC) AND 4)=0 THEN 1100 
1110 OUT CM, 8 

1120 I F (I NP(PC) AND 4)=1 THEN 1120 
1130 RETURN 

3) * REVPAR :データを受け取る 

1140 *REVPAR 
1150 OUT CM, &HB 

1160 IF (I NP (PC) AND 1)=0 THEN 1160 
1170 OUT CM, &HA 
1180 A 二 INP(PA) 

1190 OUT CM, &HD 

1200 I F (I NP(PC) AND 1)=1 THEN 1200 
1210 OUT CM, &HC 
1220 RETURN 

1( X )0 行からのサブルーチンでコマンドボート、ボート A , B ， C の I/O アドレスの初期設 
定を行ないます。このルーチンは最初にコールします。1030行からのサブルーチンは、サブ 
システムへコマンドを送るハンドシェイクルーチンで、変数 A にコマンド番号を入れ、コー 
ルします。1050行からのサブルーチンはデータを送るルーチンです。そして1140行からのサ 
ブルーチンは、サブシステムよりデータを受け取るルーチンで、受け取ったデータは変数 A 
に入ります。 

高速 ハン ドシェイクは、1バイトの コマン ドだけを送ることは出来ません。必ずデータの 
転送のときのみ使われます。ですから ATN 信号は必要なく、図 10- 2 -E のアルゴリズムど 
おりです。 
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4) * SNDPAR 2 :高速ハンドシヱイクでデータを送る 
1230 *SNDPAR2 

1240 IF (I NP ( PC ) AND 2)=0 THEN 1240 
1250 OUT PB, A1 
1260 OUT CM , 9 

1270 IF (I NP ( PC ) AND 4)=0 THEN 1270 
1280 OUT PB , A 2 
1290 OUT CM , 8 

1300 I F (I NP(PC) AND 4)=1 THEN 1300 
1310 RETURN 

5) * REVPAR 2 :高速ハンドシェイクでデータを受け取る 


1320 * REVPAR 2 
1330 OUT CM, &HB 

1340 IF (I NP (PC) AND 1)=0 THEN 1340 
1350 OUT CM , &HA 
1360 A1 = INP(PA) 

1370 OUT CM , &HD 

1380 I F (I NP ( PC ) AND 1)=1 THEN 1380 
1390 A 2= INP ( PA ) 

1400 OUT CM, &HC 
1410 RETURN 


1230 行からのサブルーチンは、変数 Al ， A 2 のデータをサブシステムへ送るルーチンで 
す。1320行からのサブルーチンは、データを受け取り、変数 Al ， A 2 に入れるプログラムで 
す。 

最後に、ハンドシヱイクの高速化で述べた、データ量を2倍にする方法について考えてみ 
ましょう。データを送る側は、ポート A もポート B も、出力にセットします。つまり、コマ 
ンドポートへ 81 H を出力します。そして、データを受け取る側は、ポート A , B 共に入力にセッ 
卜します。つまりコマンドボートへ 93 H を出力します。これで送信側からポート A ， B へ出 
力されたデータは、受信側のボート B ， A で入力出来るようになります。 

この方法は送受信の方向が変わるたびにコマンドワードを設定しなおさなければなりませ 
んが、簡単に転送量を2倍に出来ます。 


179 



データを 送る側 



テータをうけとる側 


サブ•システム 




コント ロールホー トへ 93 H を出力 


RFV 


RFD を1にする 


ホート A にデータを 出力 



1ではな 


DAV を1にする 




DAV 


> 


1ではな L 







ホート B より テータを 入力 


DAC 


DAV を0にする 



0ではない メ 



ホー ト A よりテータを入力 


ホー ト B より テータ を入力 


の枠内の 


返 



RFD = 0 


ホー ト A より テー タを入力 




図 10- 2 - N 
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10-3 サブシステムの コントロールコマン ド 


この節では、サブシステムの コン トロール コマン ドに ついて 機能別に説明していきます。 
その前に、中で使われる コマンド フォーマットの表の見方を説明しておきます。これは、 
各 コマン ドに必要なパラメータをどのような順番で入出力するかを表にしたもので、以下の 
規則に従い、左から右へ実行していきます。 



:コ 

_ •• • • 


〇 



/ - 

C:] 


.. コマンドカ、、 


卜のデ ー タをサブシステムへ送ります。 


.. 2バイトの データを サブシステムへ送ります0 
必要な量の データを サブシステムへ送ります。 

必要な量のデータを高速 ハン ドシェイクで送ります。 

1バイトの データを 受け取ります。 

2バイトの データを 受け取ります。 

必要な量のデータを受け取ります。 

必要な量のデータを高速 ハン ドシヱイクで受け取ります。 


例 



マンドステータス 




コマン ド番号6をサブシステムへ送った後、1バイト （コマン ドステータス）受け取ります 


次に用語の問題にっいて第9章に補足しておきます。 

この章では、ディスクドライブの同義語としてドライブ、ユニット（ドライブユニット）を 
使っています。これらは、すべて同じ物を示すのですが、ドライブは1，2，3，4と指定 
するのに対し、ユニットは0，1，2，3と指定します。サブシステムの内部では、ドライ 
ブ番号を0から数えるため、このような区別をつけました。 

トラック番号は後者の考え方を使い、またシリンダという言葉も使います。 

最後に各コマンドのサンプルプログラムの共通サブルーチンプログラムと、コマンド tff 4 
順の索引を載せておきます。 
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リスト 10-1 共通サブルーチン 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


NINTHS 


CM=&HFF : PC=CM -1: PB=CM -2: PA=CM_3 
RETURN 

ホ SNDCOM 


OUT CM,&HF 
ホ SNDPAR 
IF (INP(PC) 
OUT CM,&HE 
OUT PB,A 
OUT CM, 9 
IF (INPCPC) 
OUT CM, 8 
IF (INP(PC) 
RETURN 
ホ REVPAR 
OUT CM,&HB 
IF (INP(PC) 
OUT CM,&HA 
A=INP(PA) 
OUT CM,&HD 
IF (IMP (PC) 
OUT CM,&HC 
RETURN 


AND 2)=0 THEN 

AND 4)=0 THEN 
AND 4)=1 THEN 

AND 1)=0 THEN 

AND 1)=1 THEN 


1060 

1100 

1120 

1160 

1200 


コマンド 索引 


コマンド No . 

、ぐ 

へ一、ノ 

_ 

■ 

^9 

0 

202 

16 

- - 

193 

1 

189 

17 

189 

2 

185 

18 

183 

3 

183,186 

19 

197 

4 

192 

20 

196 

5 

191 

21 

183 

6 

186,194 

22 

185 

7 

195 

23 

198 

8 

203 

24 

198 

9 

184 

25 

199 

10 

203 

26 

199 

II 

183 

27 

194,202 

12 

185 

28 

201 

13 

193 

29 

201 

14 

187 

30 ； 

202 

15 

190 




182 









10-3-1 サブシステムのメモリの内容を読む （ Receive data ) 

サブシステムのメモリの内容をメインシステムへ送るコマンドは5つあります。 

1 ) コマンド3と18 

リードバッファにあるデータをメインシステムへ送るコマンドです。コマンド3は、コ 
マンド2でリードバッファに読み込まれたデータを転送するためのもので、単独で使われる 
ことはありません。コマンド18は、データの転送に高速ハンドシェイクを用いる以外は、コマ 

ンド3と同じです。 （10- 3 -3 参照） 

コマンドフォーマット 



コマンド No データを 受け取る コマンド No データを 受け取る 


2) コマンド11と21 

先頭アドレスと転送バイト数を指定することで、任意のアドレスのデータをメインシステ 
ムへ送ることができます。（コマンド21は、コマンド11の高速ハンドシェイク版です〇) 

コマンドフォーマット 



コマンド No 先頭アドレス 転送バイト数 データを受け取る 



コマンド No 先頭アドレス 転送バイト数 データを受け取る 


コマンド11を使って、サブシステムの任意のアドレスから256バイトをメインシステムの 
C 0 ⑻ H 番地に転送してみましょう。 


リスト 10- 2 


100 CLEAR , &HBFFF 
110 GOSUB NINTHS 
120 INPUT ” Input first address 
130 A=11 

140 A=VAL(”&H”+LEFT$(FADD$, 2)) 
150 A=VA し（ ” &H”+RIGHT$(FADD$, 2)) 
160 A=1 
170 A=0 

180 FOR I=&HC000 TO &HC0FF 
190 GOSUB 木 REVPAR:POKE I, A 
200 NEXT 

210 PRINT "Complete" 

220 END 

^1000-1220： 共通サブルーチン （182 P ) 


;DUM$:FADD$=RIGHT$ ( M 0000" +DUMS , 4) 
GOSUB 氺 SNDC 〇 M | コマンド番号 
GOSUB ホ SNDPAR | 先 | 頁アドレスの上イ立 
GOSUB 木 SNDPAR| " 下位 

GOSUB 水 SNDPAR |車云送バイト数の上位 
GOSUB 氺 SNDPAR i ゥ 下イ立 

I サブシステムから送られる 
I データを受け取る 


のプログラムを実行して、サブシステムの0番地〜255番地の内容を転送してみると、 


次のようになります。 
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h 〕 dc 000 , 
C000 C3 
C010 C3 
C020 C3 
C030 C3 
C040 9A 
C050 22 
C060 D9 
C070 80 
h 〕 


リスト 10 - 3 コマンド11実行例 

run 

Input first address ? 0 

Complete 

Ok 

mon 


3 ) コマンド 9 

先頭アドレスと終了アドレスに1を加えた値を指定することで、先頭アドレスから終了ア 
ドレスまでのメモリーの内容を転送します。 

コマンドフォーマット 


9 


コマンド No 


上位 


下位 


上位 


下位 


先頭アドレス 


終了アドレス 


£ ■■ ■ 1 • • • • 

夕] 


データを受け取る 


コマンド9を使ってサブシステムのメモリーダンプを取ってみて下さい。 

リスト10 • 4 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

400 

410 

420 

430 


GOSUB NINTHS 

INPUT M Input first address ” ； DUM$:FADD=VA し （ 
INPUT M Input end address ”； DUM$:EADD=VAL( 
FADDS=RIGHTS (”0000” +HEX$ (FADD),4) 
EAD1$=RIGHT$0000 n +HEX$ (EADD+1) f 4) 

IF FADD<0 THEN FADD=FADD+ 65536 ! 

IF EADD<0 THEN EADD=EADD+ 65536 ! 

IF FADD>EADD THEN PR INT:GOTO 110 


&H ，， +DUM$) 

&H ，， +DUM$) 


A=9 


GOSUB 

A=VAL (” &H ，， +LEFT$ (FADDS , 2)) : GOSUB 氺 SNDPAR I 先 i 頁アドレスの上位 

A=VA し （ ” &H”+RIGHT$(FADD$, 2)) : GOSUB 木 SNDPAR 1 " 下位 

A=VAL (” &H”+LEFT$ (EAD1S, 2)) : GOSUB 氺 SNDPAR | 終了アドレス +1 の上位 

A=VA し （，， &H”+RIGHT$ (EAD1$, 2)) : GOSUB 木 SNDPAR | 〇 下位 

COUNT=0 

FOR I=FADD TO EADD 

GOSUB 冰 REVPAR へ •_ 

IF (COUNT MOD 16)=0 THEN GOSUB >KDSPADD: GOTO 280 
PRINT ，， ， ，， ； RIGHTS (” 0，， +HEXS (A) , 2); 双 〆 る 

COUNT=COUNT+l 

NEXT 

PRINT 

END 

*DSPADD 

PRINT : PRINT RIGHTS ( M 000” +HEXS (1),4);”：” ; RIGHTS C % 0，， +HEX$ ( A ) , 2) 

COUNT=0 

RETURN 


木 SNDCOM j コマンド 9 
氺 SNDPAR 丨先頭アドレスの上位 
木 SNDPAR 丨 ク 下位 

木 SNDPAR 丨終了アドレス+ 1 の上位 
木 SNDPAR | 下位 


データを受け取り 
表示する 


※1000〜1220 :共通サブルーチン （182 P ) 


0023B800 

000C2000 

00523511 

00DGEE33 

E 0 3 275 F0 
40CC0D70 

3303 B5C1 
Cfe0c7c2c 

F 0113523 
70C0CF3C 

27377 F7F 
20CE0 7 5D 

DF 7 312 DD 
C00C44E7 


33F1315F 

FC00C3ED 

00362 FDC 
00C907F7 


0063385 F 
000C62E7 

009333 DA 
00D0C7D2 


0 3 6 2 D 5 A 
0 c 9 0 E E 2 


00037156 

000CAED0 

06223 F57 
0000C7C1 


0 E 
c 7 


9 7 6 2 A 5 D 
D A D 0 2 F c 
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10-3-2 サブシステムへデータを送る （Send data ) 

コマンド12と22 

サブシステムの任意のアドレスへデータを送るコマンドは、12と22の2つあります。それ 
らは、先頭のアドレスと転送バイト数を指定することで、サブシステムへデータを送ること 
ができます。（コマンド22はコマンド12の高速ハンドシェイク版です。） 

コマンドフォーマット 



コマンド No 


22 


コマンド No 


上位 

下位 

先頭アドレス 

上位 

下位 


先頭アドレス 


上位 

下位 

転送バイト数 

上位 

下位 

,- 〆 


転送バイト数 



データを 送る 



データを 送る 


コマンド12を使って、サブシステムのメモリーの内容を書き変えてみましよう。 


リスト 10- 5 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


GOSUB NINTHS 

INPUT M Input address 

A=11 


” ;DUM$:FADD$=RIGHT$ ( ，， 0000 ，， +DUM$ ， 4) 

: GOSUB 木 SNDCOM 、 


A=VAL r&H” +LEFTS(FADDS , 2)) 
A=VAL ( ， ’ &H”+RIGHT$ (FADDS, 2)) 
A=0 
A=1 


GOSUB 木 SNDPAR 
GOSUB 木 SNDPAR 
GOSUB 水 SNDPAR 
GOSUB 木 SNDPAR 


コマンド 11 で 現 
在のメモリの内 
容を調べる 


GOSUB 冰 REVPAR 


)RINT ” Mow,value is ”； R IGHT $ (”00” +HEX$ (A) , 2) ; ” H” 
[NPUT "Input new value M ; DUM$ : CDATA=VAL C &H 11 +DUM$) 
\=12 


A=VAL("&H” + し EFT$ (FADDS, 2)) 
A=VAL (” &H”+RIGHT$(FADDS, 2)) 
A=0 
A=1 

A=CDATA 
PRINT 
GOTO110 


GOSUB 木 SNDCOM 丨 コマンド 12 
GOSUB 水 SNDPAR 丨先豆頁アドレスの上位 
GOSUB 氺 SNDPAR1 ゥ 下位 

GOSUB 木 SNDPAR I 転送バ•イト数の上位 
GOSUB 木 SNDPAR I む 下位 

GOSUB 木 SNDPAR !データを送る 


^1000-1220： 共通サブルーチン （ 1 82 P ) 


コマンド12実行例 

run 

Input address ? 6000 
Now,value is FFH 
Input new value ? 31 


10- 3-3 ディスクからテータを読み込む (Read data ) 

ディスクからデータを読み込み、サブシステムのメモリ上へ置く コマン ドは2つあります。 

1 ) コマンド2 

ディスクからデータを読み込み、リードバッファに置きます。 
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転送セクタ数、 ユニッ ト番号 （ ドライブ番号一1)、トラック番号、セクタ番号を指定します。 
ユニッ ト番号は、どのドライブ ユニッ トに入ったディスクをアクセスするか指定するもので、 
ドライブ1なら0、ドライブ2なら1を指定します。転送セクタ数は、読み込むセクタの数 
で、2つのトラックにまたがるような指定はできません。例えば、 ユニッ ト番号0(ドライ 
ブ 1 ) のトラック 0 セクタ 8 から 16 セクタ（転送セクタ数）読み込むといったことはできませ 

ん。 5 インチディスクの場合、セクタ番号の最大値は 16 なので、転送セクタ数は 9 以下にな 
ります。 

コマンドフォーマット 


2 


Block 


Unit 


Track 


Sector 


コマンド No 転送セクタ数 ユニット No トラック No セクタ No 

(転送セクタ数） +( セクタ番号）‘17 


読み込まれたデータは、500 0 H 〜 5 FFFH のリードバッファに置かれ、転送セクタ数はワー 
クエリア 7 F 08 H に記憶されます。また、正常に読めた場合は、コマンドステータスの 
FULL フラグを1， I 0 ERR フラグを0にします。正常に読めなかったときは、 FULL フラ 
グを0， I 0 ERR フラグを1にします。コマンドステータスの FULL フラグが1で、 I 0 ERR 
フラグが0のとき、コマンド3を実行すると、 7 F 08 H の転送セクタ数 X 256 バイトのデータ 
が送られてきます。 

コマンドステータスは、コマンド6を使えば調べることができます。コマンド番号6をサ 
ブシステムへ送ると、1バイトのデータ（コマンドステータス）が送られて来ます。 

コマンドフォ ー マット 



コマンド No 


<コマンドステータス 


7 6 5 4 3 2 1 0 



I 0 ERR . 処理中に I / O エラーが起きたら1 

そうでなければ〇 

FULL . データ.アベイラブル.フラグ 

リード.バッ ファに データがあるとき1、そうでないとき0 
例）コマンド2が正常に終了すると1になり、 

コマンド 3 でデータを送ってしまうと 0 になる。 

DONE . ラスト I / O コンプリ ー ト•フラグ 

DISK がインテリジヱント方式なので常に1 

コマンド 2 ， 6，3 を使ってディスクのデータをメインシステムの C000H 以降にもってくる 
プログラムを載せておきます。 
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h〕dc 000, c 07 f 
C000 BE C0 IF 
C010 BB 00 98 
0020 00 E8 24 
C030 DE C6 06 
C040 0180 F6 
0050 0174 08 
C060 8B DE B8 
C070 CE C3 00 


ドライブ 1 ，トラック 0 の 
セクタ 1 から 1 セクタを 
C000H 〜 C0FFH に読ん 
でくる 0 


コマン ド2実行例 

run 

Input drive number 
Input track number 
Input sector number 
Input block numbe r 
Comp 1e te 
Ok 
mon 


リスト 10- 6 

100 GOSUB NINTHS 

110 INPUT "Input drive number (1,2) ”； DRIVE 

120 IF DRIVEOI AND DRIVE<>2 THEN 110 
130 INPUT M Input track number (0 — 79) M ;TRACK 
140 IF TRACK<0 OR TRACK>79 THEN 130 
150 INPUT Input sec tor number (1 - 16) ;SECTOR 

160 IF SECT0R<1 OR SECTOR>16 THEN 150 
170 INPUT "Input block number (1 一 16) ”； BLOCK 
180 IF BL0CK<1 OR BL0CK>1G OR SECTOR+B し OCK>17 THEN 170 
190 BUFF=&HC000 
200 • 

210 A=2 : GOSUB ポ SNDCOM | コマンド 2 

220 A=BLOCK : GOSUB 木 SNDPAR i 転送セクタ数をネ旨定 
230 A=DRIVE — 1 :GOSUB 氺 SNDPAR ドライブユニット番号 
240 A=TRACK : GOSUB ホ SNDPAR トラック番号 
250 A=SECTOR : GOSUB ホ SNDPAR | セクタ番号 
300 
310 
320 

330 IF (A AND 1)=1 THEN PRINT ” Disk I/O error" : BEEP:END 
340 IF (A AND &H40)=0 THEN PRINT ” Not exit data in read buff n :BEEP:END 
400 * 

410 A=3 : GOSUB ポ SNDCOM _ 

420 FOR 1 = 0 TO BLOCK 水 256 — 1 コマンド 3 でデータを受け取る 

430 GOSUB 木 REVPAR:POKE I+BUFF,A 
440 NEXT 

450 PRINT ” Complete” 

460 END 

※湖〇〜 1220 :共通サブルーチン （182 P ) 


A=6 


: GOSUB ホ SNDCOM 
GOSUB ホ REVPAR 


コマンド 6 でエラーのチェックを行 1 う 


2 ) コマンド 14 

コマンド2は、読み込んだデータを5000 H — 5 FFFH (リードバッファ）に置いていましたが、 
このコマンドでは、その先頭アドレスを自由に設定できます。ただし、 ROM エリアや、ワー 
クエリア （7 F ⑻ H 〜 "7 FFFH ) に置くことはできません。これらのアドレスを使うと、ハング 
アップする可能性もあるので、注意して下さい。 


他のパラメータはコマンド2と同じです。 

正常に読めなかったときは、コマンドステータスの I 0 ERR フラグが1になります。 

コマンドフオーマツト 



コマンド No 転送 ユニット No トラック No セクタ No 先頭アドレス 

セクタ数 

(転送セクタ数） +( セクタ番号）$17 


40E2A270 

F08BF070 

1D0B02F0 

0B0C87D0 

36002 EB0 
7C655D20 

BEE00BF0 

18B013E0 


以 0 5 2 0 A 3 0 
)10 0 0 5 0 0 


E008E3F0 

000BBFD0 

FE20BB70 

5BA5FE80 

8308B170 

B05E8090 

22C 01020 
0B00C070 

0058EEB0 
000BFE10 

C 6012 1D0 
BB 0008 C0 

60055 A60 
D0A07C50 

E1051E00 

8B000F50 


1i IX 11 


? ? ?9 


? ? ? 
? 9 6 6 
2 7 11 

II 
10 1 11 

(c c c 


187 











コマン ド14実行例 

run 

input drive number (1,2) 
Input track number (0—79) 
Input sector number (1 - 16) 
Input block number (1 - 16) 
Complete 


ドライブ 1, トラック 0 の 
セクタ1から1セクタを 

C 000 H 〜 C 0 FFH に 

読んでくる。 


mo n 

h 〕 dc 000 , c 07 f 

0000 E5 E5 E5 E5 E5 E5 E5 E5 £5 E5 E5 E5 E5 E5 E5 E5 

C010 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 

C020 E5 E5 F：5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 

C030 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 

C040 E5 E5 E5 E5 E5 E5 E5 F.5 E5 E5 E5 E5 E5 E5 E5 E5 

C050 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 

C060 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 

C070 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 

h 〕 


コマンド14，6， 11 を使い、ディスクのデータをメインシステムの C ⑻ OH 以降にもってく 
るプログラムを載せておきます。バッファの先頭アドレスは 6000 H になっています。 

リスト 10- 7 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

300 

310 

320 

330 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 


GOSUB NINTHS 

INPUT ” Input drive number (1,2) ”； DRIVE 

IF DRIVEoi AND DRIVE<>2 THEN 110 

INPUT ” Input track number (0-79) 11 ;TRACK 

IF TRACK<0 OR TRACK>79 THEN 130 

INPUT ”Input sector number (1-16) ”； SECTOR 

IF SECT 〇 R<1OR SECTOR>16 THEN 150 

INPUT ’’Input block number (1 — 16) 11 ;BLOCK 

IF BL 〇 CK<1 OR BLOCK>16 OR SECT 〇 R+BL 〇 CK>17 THEN 170 

MAIN.BUFF=&HC000 

SUB. BUFF=&H6000 : SUB.BUFF$=RIGHT$ (”0000” +HEX$ (SUB. BUFF) 


TRACK 


SECTOR 


BLOCK 


4) 


A=14 
A=BLOCK 
A=DRIVE - 1 
A=TRACK 
A=SECTOR 

A=VAL (” &H” 十し EFT$(SUB. BUFFS, 2)) 

A 二 VAL( ，， &H ，， +RIGHT$ (SUB. BUFFS, 2)) 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 


ホ SNDC 〇 M 
ホ SNDPAR 
ホ SNDPAR 
ホ SNDPAR 
♦SNDPAR 
^SNDPAR 
ホ SNDPAR 


! コマンド 14 

I 転送セクタ数指定 

I ドライブユニット番号 
I トラック番号 

!セクタ番号 

バッファ先頭アドレス上位 
! 下位 


A=6 


IF (A AND 1)=1 THEN PRINT 


: GOSUB >KSNDCOM 
GOSUB 木 REVPAR 
Disk I/O error" : BEEP:END 


コマンド 6 で 
エラーの チ エツ ク 


A=1 1 : GOSUB 冰 SNDC 〇 M 

A=VAL (” &H” 十し EFT$ (SUB. BUFFS , 2)) : GOSUB 木 SNDPAR 

A=VAL (” &H”+RIGHT$ (SUB. BUFFS, 2)) : GOSUB 木 SNDPAR 
SIZE$=RIGHTS (”0000”+HEX$ (256*BLOCK),4) 
A=VAL(”&H”+LEFT$ (SIZES, 2)) : GOSUB >KSNDPAR 

A=VALT &H ,$ +RIGHTS (SIZES, 2)) : GOSUB ^SNDPAR 

FOR 1 = 0 TO 256 水 BLOCK — 1 

GOSUB *REVPAR:POKE MAIN. BUFF+I, A 
NEXT 

PRINT ” Complete” 

END 


コマンド 11 でバッファに 
ある データを 読む 


※10◦〇〜1220 :共通サブ ルーチン （ 1 82 P ) 


10 2 1 
9 • 9 . 9 - 9 . 
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10-3-4 ディスクへ データを書き込む (Write data ) 

ディスタへデータを書き込む コマン ドは3つあります。 

1 ) コマンド 1 とコマンド 17 

メイ ン システムから送られたデータをディスクへ書き込む コマン ドです。 （コマン ド17は 
高速ハンドシェイク版です。）メインシステムから送られたデータをいったんライトバッファ 
(4000 H 〜 4 FFFH ) に置き、それを指定したセクタへ書き込みます。転送セクタ数、ユニッ 
卜 番号、 トラック 番号、 セクタ 番号を 指定します。 

これらは、 コマンド 2の場合と同じです。 

正常に書き i 入めなかった場合には、コマンドステータスの IOERR フラグが1になります。 


コマンドフォーマット 



Block 


コマンド No 転送 

セクタ数 



Block 


Unit 


T rack 

ユニッ ト No 

トラック No 

Unit 


Track 


コマンド No 転送 ユニット No トフック No 

セクタ数 

(転送セクタ数） +( セクタ No ) ^17 


Sector 


セクタ No 


Sector 


Data 


書き込む データ 
転送セクタ数 X 256 バイト 


Data 


セクタ No 書き込むデータ 

(高速ハンドシェイク) 


例文として、メインシステムの C 000 H からのデータをデイスクへ書き込むプログラムを 
載せておきます。 


リスト 10- 8 

100 GOSUB NINTHS 

110 INPUT M Input drive number (1 ， 2) ”； DRIVE 

120 IF DRIVEol AND DRIVE<>2 THEN 110 

130 INPUT ”Input track number (0-79) ”； TRACK 

140 IF TRACK<0 OR TRACK>79 THEN 130 

150 INPUT ’’Input sector number (1 — 16) ”； SECTOR 

160 IF SECT0R<1 OR SECTOR>16 THEN 150 

170 rJPUT "Input block number (1-16) ”； BLOCK 

180 IF BL0CK<1 OR BLOCK>16 OR SECT0R+BL0CK>17 THEN 170 

190 BUFF=&HC000 

200 A=1 : GOSUB 木 SNDCOM 1 コマンド 1 

210 A=BLOCK : GOSUB 木 SNDPAR 丨転送セクタ数ネ旨定 

220 A=DRIVE — 1: GOSUB 木 SNDPAR | ドライブユニット番号 

230 A=TRACK : GOSUB 木 SNDPAR | トラック番号 

240 A=SECTOR : GOSUB 水 SNDPAR ! セクタ番号 

250 FOR 1=0 TO BLOCK 木 256—1 . 一糸石 

260 A=PEEK (BUFF+I) :GOSUB 木 SNDPAR / 包し ° 

270 NEXT 
300 1 

310 A=G : GOSUB 水 SNDCOM 1 了 -心ノ ^ 

320 GOSUB 氺 REVPAR [ コィノド 6 でエノ -のチェック 

330 IF (A AND 1) = 1 THEN PRINT "Disk I/O e r ro r ，，： BEEP: END 
340 PRINT ” Complete ，， 

350 END 

※1 000〜 1220 :共通サブルーチン （182 P ) 
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コマンド 1 実行例 

mon 


h〕dc 000 

C000 30 3132 33 34 35 36 37 38 39 FF FF FF FF FF FF 0123456789 

h〕 A B 
Ok 


run 

Input 

Input 

Input 

Input 

Comp 1 e 

Ok 


drive 
track 
sector 
block 
t e 


number 
number 
numb e r 
number 


( 1 , 2 ) ?1 
(0 - 79) ? 0 
(1-16) ?1 
(1-16) ?1 


C000H 〜 C 0 FFH の内容をドライブ 1 の 
ト ラック 0, セクター 1 に 書き込む。 


printle f t$ (dsk i$ (1, 0, 0, 1),10) 確かに書き込まれてぃる。 

0123456789 | 

Ok 

2 ) コマンド 15 

サブシステムの任意のアドレスから始まるデータをデイスタへ書き込みます。転送セクタ 
数、ユニット番号、トラック番号、セクタ番号、先頭アドレスを指定します。 

正常に書き込めなかった場合には、 コマン ドステータスの IOERR フラグが1になります。 


=1 マン ド フォーマット 



15 


Block 


Unit 

- -V- 

コマンド No 

- -V- ザ 

転送 

ユニッ ト No 


セクタ数 


T rack 


Sector 


上位 

下位 

- - v - 一 

トラック No 

セクタ No 


先頭アドレス 


例文として、サブシステムの 6( K )0 H 番地からのデータをディスクへ書き込むプログラムを 
載せておきます。 


リスト 10- 9 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

300 

310 

320 

330 

340 

350 


GOSUB NINTHS 

INPUT Input drive number (1,2) 
IF DRIVEoi AND DRIVE<>2 THEN 110 




DRIVE 


INPUT n Input track number (0-79) 
IF TRACK<0 OR TRACK>79 THEN 130 
INPUT "Input sector number (1 - 16) 
IF SECT0R<1 OR SECTOR>16 THEN 150 
INPUT ’’Input block number (1 — 16) 


%% 


TRACK 


SECTOR 


BLOCK 


IF B し 0CK<1 OR BLOCK>16 OR SECT 〇 R+B し OCK>17 THEN 170 


BUFF=&H6000:BUFF$=RIGHT$ ("0000，， +HEXS (BUFF) , 4) 


A=15 
A=B し〇 CK 
A=DRIVE - 1 
A=TRACK 
A=SECTOR 

A 二 VAL (” &H” + し EFTS(BUFFS, 2)) 
A=VAL (” &H”+RIGHTS (BUFFS, 2)) 


GOSUB 氺 SNDCOM I コマンド 15 

GOSUB 氺 SNDPAR I 転送セクタ数 

GOSUB *SNDPAR | ドライブユニット番号 

GOSUB 氺 SNDPAR | トラック番号 

GOSUB 氺 SNDPAR | セクタ番号 

GOSUB 氺 SNDPAR 丨バッファの先頭のアドレス上位 

GOSUB 氺 SNDPAR | ク 下位 


A=G : GOSUB 氺 SNDCOM 1 一 

GOSUB 氺 REVPAR f エフ-の ^ エツク 

IF (A AND 1)=1 THEN PRINT ” Disk I/O error" : BEEP:END 
PRINT ” Complete” 

END 


^1000-1220： 共通サブルーチン （182 P ) 
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e xp 


numb e r 
number 
number 
number 


バッファを 6000 H 〜として 
ドライブ 1 のトラック 0, セクタ 1 
から 1 セクタ書き込む 


print left$(dskiS(l, 0,0, 1),6) 

ABCDEF 

Ok 


確かに 600 OH からのデータが 
書き込まれている。 


10-3-5 フオー マツ ト （ Format ) 


二/フ 


ド5は、ディスクの物理的フォーマットを行ないます。 


フォーマツトしたいディスクのユニツト番号を指定すると、全トラツク（両面なら80トラツ 
ク、片面なら35トラツク）に対し、物理的フォーマツトを行ないます。フォ ー マツトが失敗 
したときは、 コマン ドステータスの IOERR フラグが'1になります。 

コマンドフオ ー マツト 


5 


Unit 


コマンド No ユニット No 


リスト 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 


GOSUB NINTHS 

INPUT "Input drive number (1,2) ”； DRIVE 
IF DRIVEoi AND DRIVE<>2 THEN 110 

PRINT ” Format drive” ； DRIVE; :INPUT ” Ok (y/n) ” ； DUM$ 
IF DUM$<> ，， y” AND DUM$<> ，， Y” THEN PRINT: GOTO 110 


A=5 

A=DRIVE 一 1 


: GOSUB 氺 SNDCOM 丨コマンド 5 
: GOSUB 氺 SNDPAR |ドライブユニット番号 


A=6 

IF (A 
PRINT 
END 


: GOSUB ホ SNDCOM 
: GOSUB 木 REVPAR 
AND 1)=1 THEN PRINT 
’’Complete” 


エラーチェック 

Disk I/O error” ： BEEP:END 


※1 000〜 1220 :共通サブルーチン (182 P ) 


コマン ド 15 実行例 


load ” com9. exp 

Ok 

run 


Input first address ? 6000 コマンド 9 の例を使い 
Input end address ? 6005 6000 H 〜 6005 H の内容を見る 

6000 : 41,42,43,44,45,46 
Ok 


5 


e k O k 
V c 1 c 


ac 


d 


k 

〇 


r r 61 G 

d t s b t 

e 

t t i t . ― | 
u u u u p 
n p p p p m 
u n n n n o k 

r I I I I c o 


))) 
)966 
2 7 11 

,111 
II 0 11 11 

(c c c 
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コマンド5実行例 

run 

Input drive number (1,2) ?1 

Format drive 1 Ok ( y/n) ? y 
Comp 1e te 
Ok 

10-3-6 コピ _ ( Copy ) 

コマンド 4 

コマンド 4 は、セク タ 単位で データの コ ピーを 取ります。 

コピーす るセクタ数と コピー 元、 コピー 先の ユニット、ト ラック、セクタ番号を指定しま 
す。 コピーは ライ ト バッファに コピー 元の データを 読んできて、それを コピー 先へ書き込む 
簡単なものです。2 ト ラックにまたがった コピーは 出来ません。 

コマンドフォーマット 










コマンド No コピー コピー元の ュニッ ト、トラック、セクタ コピー先の ユニツ ト、トラック、セクタ 


セクタ数 


(so urce ) 


(de stinatio n ) 


(コピー セクタ数） + (コピー 元のセクタ番号）^17 
(コピー セクタ数）+ (コピー 先のセクタ番号）^17 


リスト 10-11 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


GOSUB NINTHS 

INPUT M Input source drive (1,2) ” ； S.DRIVE 

IF S. DRIVEOI AND S. DRIVE<>2 THEN 110 

INPUT "Input source track (0-79) ;S* TRACK 

IF S. TRACK<0 OR S. TRACK>79 THEN 130 

INPUT ” Input source sector (1-16) ;S. SECTOR 

IF S.SECT0R<1 OR S. SECT0R>1G THEN 150 

PRINT 

INPUT 11 Input destination drive (1,2) ” ； D.DRIVE 

IF D. DRIVEOI AND D. DRIVE<>2 THEN 180 

INPUT n Input destination track (0-79) ” ； D.TRACK 

IF D. TRACK<0 OR D. TRACK>79 THEN 200 

INPUT "Input destination sector (1-16) ” ； D. SECTOR 

IF D- SECT0R<1 OR D. SECTOR>16 THEN 220 

PRINT 

INPUT ’’Input number of copy block (1-16) ; BLOCK 

IF BL0CK<1 OR BLOCK>16 THEN 250 

IF S.SECTOR+BLOCK>17 OR D.SECT 〇 R+BLOCK>17 THEN 250 


A=4 

A=BLOCK 
A=S.DRIVE - 1 
A=S. TRACK 
A=S.SECTOR 
A=D.DRIVE-1 
A=D.TRACK 
A=D. SECTOR 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 


木 SNDCOM | コマンド 4 
木 SNDPAR 丨コピーするセクタ数 
氺 SNDPAR 1 

*SNDPAR コピー元のドライブ、ユニット、トラック、セクタ番号 
木 SNDPAR 


^SNDPAR 

木 SNDPAR コピー先のドライブユニット、トラック、セクタ番号 

ホ SNDPAR 


A=6 

IF 


(A AND 1) 


: GOSUB 水 SNDCOM 
GOSUB 木 REVPAR 
=1 THEN PRINT 




| エラーのチェック 

Disk I/O error 


: BEEP : END 
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410 PRINT ” Complete” 

420 END 

※湖〇〜 1 220:共通サブルーチン （182 P ) 

コマン ド 4 実行例 

print lef (dski$ (2, 0, 0, 1) , 10) ;，， — ”； 1 i f t$ (dsk i $ (2, 0, 0, 2),1 0) 

0123456789 - ABCDEFGHIJ 
Ok 

run 

Input source drive (1,2) ?1i 

Input source track (0 - 79) ? 0 f コピ-元指定 

Input source sector (1 一 16) ?1 ^ 

Input destination drive (1,2) ?1 | 

Input destination track (0 - 79) ? 0 f コピ-先指定 
Input destination sector (1-16) ? 2 ^ 

Input number of copy block (1 一 16) ?1M セクタだけコピーする 

Comp 1 e te 
Ok 

print le f t$ (dsk iS (2, 0, 0,1),1 0); ，， — ”； 1 e f t$ (dsk iS (2, 0 ， 0, 2),1 0) 
0123456789 一 01234 56789 i 確かにコピーされた 
Ok 

10-3-7 ユーザーのプログラムを動かす 
1 ) コマンド 13 

コマンド 13 は、指定したアドレスへ実行を移すコマンドです。このコマンドを使えば、サ 
ブシステムの中で、自分が作ったプログラムを動かすことができます。実行を終了して、 
ROM のプログラムに戻るときは、 JP 00 C 1 H ( C 3 H , C 1 H , ⑻ H ) とします。サブシステム 
内での暴走はディスクの誤動作を招く恐れがあるので、十分注意して下さい。 

コマンド フォー マツ ト 



コマンド No アドレス 

2 ) コマンド 16 

ドライブユニット〇の、トラック0セクタ1から1セクタを500 0 H 番地に読み込み、 
500 0 H へ実行を移すコマンドです。サブシステムのみでの オート スター トに 使うコマンドな 
ので、あまり役にたちません。 

コマンドフォーマット 
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3 ) コマンド 27 

ブレークポイントを使ったデバッグのとき、プログラムを実行させるコマンドです。 10- 
3 -11 を見て下さい。 

10-3-8 ステータス 情報に関する コマンド 

1 ) コマンド ステー タス（コマンド 6) 

コマンドステータスには、2つの情報が含まれています。 IOERR フラグ、 FULL フラグ 
と呼ばれるもので、 IOERR フラグはディスクをアクセスするコマンド（リードデータ、ライ 
トデータ、フォーマット、コピーコマンド）を実行した時、成功すれば0、失敗すれば1にな 
ります。メインシステム側では、 IOERR フラグが1のとき 、 Disk I/O Error が起きたと 
判断します。 

FULL フラグは、コマンド2を実行してエラーが起きず、データがリード バッファ にある 
とき1になり、その後コマンド3でメインシステムへデータを送り終えると0になります。また、 
他のディスクをアクセスするコマンドを使うと、 FULL フラグは0になります。 

コマントフオーマット 



コマンド No 


<コマンドステータス〉 


7 


6 


5 4 


3 2 


1 


0 



IOERR ……処理中に I/O エラーが起きたら1そうでなければ0 

FULL . データ•アベイラブル•フラグ 

リード . バッファにデータがあるとき 1 そうでないとき〇 

DONE . ラスト I/O コンプリ ー ト•フラグ 

DISK がインテリジェント方式なので常に1 

リスト 10-12 

100 GOSUB NINTHS 

110 A=6 : GOSUB 木 SNDCOM 

120 GOSUB 木 REVPAR 

130 PRINT ” Command status =; 

140 FOR BIT=7 TO 0 STEP -1 

150 IF (A AND 2 A BIT)=0 THEN PRINT ”0 ”； ELSE PRINT ”1 ”； 

160 NEXT 

170 PRINT:PRINT 

180 PRINT ”1/0 complete flag = M ; • 

190 IF (A AND 2 A 7)=0 THEN PRINT ”0 ，， ELSE PRINT ”1 ，， 

200 PRINT ” Full (read buff) flag = 

210 IF (A AND 2 A 6)=0 THEN PRINT ”0，， ELSE PRINT M” 

220 PRINT "I/O error flag = ”； 

230 IF (A AND 2 A 0)=0 THEN PRINT ”0” ELSE PRINT ，， 1” 

240 END 

※1 ㈤ 〇〜 1 220 :共通サブルーチン （182 P ) 
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I/O complete flag = 

Full (read buff ) flag = 
I/O error flag = 

Ok 

2 ) ドライブ ステー タス （コマン ド7 ) 


ドライブステータスを調べれば、どのディスクドライブが接続されているかがわかります。 

コマンドフォーマツト 


7 


コマ 


ド No 


ドライブ ステータス 


Drive Drive Drive Drive 
Unit # 3 Unit # 2 Unit # 1 Unit # 0 


ディスクドライブが接続して 
あれば 1 、なければ0になる 


常に 


ドライブステータスが 1 FH なら1台、 3 FH なら2台， FFH なら4台のディスクドライブ 
が接続されていることになります。 PC -8801 mkII では、起動時にドライブ数を調べて、メ 

インシステムのワークエリア、 EF 62 H 番地にセツトするようになっています。 


リス ト 10-13 

100 GOSUB NINTHS 

110 A=7 : GOSUB ^SNDCOM 

120 GOSUB 木 REVPAR 

130 PRINT ” Drive status = ”； 

140 FOR BIT=7 TO 0 STEP -1 

150 IF (A AND 2 A BIT)=0 THEN PRINT 

160 NEXT 

170 PRINT:PRINT 

180 FOR DRIVE=1 TO 4 

190 PRINT ” Drive” ； DRIVE;” ： ”； 

200 IF (A AND 2 A (DRIVE+3))=0 THEN 
210 NEXT 
220 END 

※1 000 ~1 220 :共通サブルーチン （182 P ) 

コマン ド 7 実行例 

run 

Drive status =00111111 


” ； E し SE PRINT 


PRINT ’’Not connect” ELSE PRINT ’’Connect 


Dr ive 
Drive 
Drive 
Dr ive 
Ok 


Connect 
Connect 
Not connect 
Not connect 


コマン ド 6 実行例 
run 

Command status =10000000 


0 0 
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3 ) デバイスステータス（コマンド 20) 

主にライトプロテクトシールの有無を調べるためのコマンドです。 


f バイスステータス/ 


V 


ビット番号 

ステ ー タス名称 

略称 

内 容 

D 7 

Fault 

FT 

デバイスからの Fault 信号の状態 

D 6 

Write Protected 

WP 

デバイスからの Write Protected 信号の状態 

D 5 

Ready 

RY 

デバイスからの Ready 信号の状態 

D 4 

Track 0 

TO 

デバイスからの Track 0信号の状態 

D 3 

Two Side 

TS 1 

デバイスからの Two Side 信号の状態 

D 2 

Head Address 

HD 

デバイスへの Side Select 信号の状態 

D 1 ' 

Unit Select 1 

US 1 

デバイスへの Unit Select 1信号の状態 

D 0 

Unit Select 0 

USO 

デバイスへの Unit Select 0信号の状態 


コマンドフオーマット 


20 Unit 


コマン ド No ド フづフ 

ュニッ ト番号 


指定したドライブのデバイスステータスのビット6( Write Protected ) が1なら、そのドラ 
イブに入っているデイスクにライトプロテクトシールが貼ってあることになります。 


リスト 10- 14 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


GOSUB NINTHS 

INPUT ” Input drive number (1-4) ”； DRIVE 
IF DRIVE<1 OR DRIVE>4 THEN 110 
A=20 : GOSUB 水 SNDCOM 

A=DRIVE — 1 : GOSUB 木 SNDPAR 

GOSUB ホ REVPAR 

PRINT : PRINT ” Device status = 11 ; 

FOR BIT=7 TO 0 STEP 一 1 

IF (A AND 2 A BIT)=0 THEN PRINT ”0 ”； ELSE 
NEXT 


PRINT:PRINT 

PRINT "Unit select =’’ ； A AND 3 
PRINT ” Head address = ”； 

IF (A AND 2 A 2)=0 THEN PRINT ，， 0 ，， 
PRINT ” Two side 1ine = ”； 

IF (A AND 2 A 3)=0 THEN PRINT ，， 0” 
PRINT "Track 0 1 ine = ，， ； 

IF (A AND 2 A 4)=0 THEN PRINT ”0 ，， 
PRINT ” Ready line = ”； 

IF (A AND 2 A 5)=0 THEN PRINT ，， 0 ，， 
PRINT ” V/rite protect = ”； 

IF (A AND 2 A 6)=0 THEN PRINT ，， 0 ，， 
PRINT "Fault 1 ine = ，， ； 

IF (A AND 2 A 7)=0 THEN PRINT ”0 ，， 
END 


ELSE PRINT 
ELSE PRINT 
ELSE PRINT 
ELSE PRINT 
ELSE PRINT 
ELSE PRINT 


PRINT 


，， 1 






1 


99 1 %% 


1 




1 


11 1 fl 


11 


1 



^1000-1220： 共通サブルーチン （182 P ) 
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コマンド20実行例 

run 

Input drive number (1 — 4) ? 2 


Dev ice status = 0 0 1 1 1 0 0 1 


Unit select =1 
Head address = 0 
Two side line =1 
Track 0 line =1 

Ready line =1 
Write protect = 0 
Fault line = 0 
Ok 


4 ) リザルトステータス（コマンド 19) 

フロッピーディスクコントローラ （ FDC ，/ iPD 765) のコマンドの実行結果を送ります0送 
られてくる情報は、実行したコマンド番号、ステータスレジスタ0、ステータスレジスタ1、 
ステータスレジスタ2、実行終了セクタのシリンダ、ヘッド、セクタ、セクタ長の8つです。 

コマン ドフ オー マツ ト 




COMMAND 





2 




C 




H 


R 




N 



コマンド No 


FDC のコマンドステ ー 

I タス0 


ステーステ ー シリンダ No ヘッド No セクタ No セクタ長 
タス1 タス2 | 


内容に ついて は付録 OOP 参照 


リスト 10-15 


100 GOSUB NINTHS 


110 A=19:GOSUB ホ SNDCOM 

120 GOSUB >KREVPAR: PRINT ” command code 

130 PRINT 

140 GOSUB 木 REVPAR:PRINT ” Status0 = 

150 GOSUB >KREVPAR:PRINT ” Status 1 = ”；： 

160 GOSUB >KREVPAR:PRINT ”Status2 = ”；： 

170 PRINT 

180 GOSUB 水 REVPAR:PRINT ” 林 of cylinder 

190 GOSUB >KREVPAR: PRINT ，，林 of head 

200 GOSUB *REVPAR:PRINT of sector 

210 GOSUB 木 REVPAR:PRINT ” Sec tor length 

220 END 


= ”； RIGHTS ( ，， 00 ，， +HEX$ (A) , 2) 


GOSUB 水 DSPBI 丁: 
GOSUB 木 DSPBIT 
GOSUB 木 DSPBIT 



230 ホ DSPBIT 

240 FOR BIT=7 TO 0 STEP _1 

250 IF (A AND 2 A BIT)=0 THEN PRINT ”0 ”； ELSE PRINT "1 
260 NEXT 


270 PRINT 
280 RETURN 


^1000-1220： 共通サブルーチン （182 P ) 
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o f cylinder 
tf of head 
tf of sec tor 
Sec tor length 
Ok 


10-3-9 両面、片面 モードの指定 

1 ) コマンド23 

各ドライブごとに両面、片面の指定を行ないます。このコマンドは5インチ片面ディスク 
PC -8031/1 W /1 V とのコンパチビリティーを保つためのもので、サブシステム自身の起動 
時はすべて片面モードになっています。メインシステムでは、サブシステム ROM の 07 EFH 
が EFH のとき、5インチ両面ドライブが接続されていると判断し、コマンド23ですベての 
ドライブを両面モードに切り換えます。また、 07 EFH が FFH なら、5インチ片面ドライブ 
が接続されていると判断します。 


コマンドフォーマット 



0 -片面指定 

1-両面指定. 


2 ) コマンド24 

現在の両面 • 片面指定の情報、ドライブォペレーションモードを送ってきます。 

コマンドフォーマツト 

24 く ドライフオペレーションモード> 

- - v - - 

コマンド No 


コマンド19実行例 

aS = dski$ (1, 0, 0, 2) 

Ok 

run 

command code = 4b 

Status0 =00000000 
Statusl =00000000 
Sta tus2 = 00000000 


10 3 1 

一一 11 一一 ii 
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Drive 1 

Drive 2 

Drive 3 

Drive 4 
Ok 


リスト 10-16 

100 GOSUB NINTHS 

110 A=24:GOSL'B 水 SNDCQM 

120 GOSUB 木 REVPAR 

130 PR I NT ” Drive operation mode = ”； 

140 FOR BIT=7 TO 0 STEP 一 1 

150 IF (A AND 2 A BIT)=0 THEN PRINT ”0 ”； ELSE PRINT ”】 

160 NEXT 

170 PR I NT:PRINT 

180 FOR DRIVE=1 TO 4 

190 PRINT ” Dr ive” ； DRIVE ; ，， ： ” ； 

200 IF (A AND 2 A (DRIVE — 1))=0 THEN PRINT ” Single ，， ELSE PRINT ” Double 
210 MEXT 
220 END 

^1000-1220： 共通サブルーチン （182 P ) 

コマン ド 24 実行例 
run 

Drive operation mode =00001111 


10-3-10 リードアフター フイト 

リードアフターライト （Read after write ) とは、デ ー タをディスクへ書き込んだ後、正 
しく書き込まれたかどうか、チェックすることです。リードアフターライトモードになると、 
データの書き込み終了後、実際にデータを読んできて、書き込むデータと比較します。これ 
らが違っていれば再度、書き込みを行ないます。 

このモードでのデータの書き込みは、そうでないときより 2〜3 倍ぐらい遅くなります。 

1 ) コマンド25 

リー ドア フター ライト モードに します。 

コマンドフォーマット 


25 

--V- - 

コマンド No 
2 ) コマンド26 

リードアフターライトモードを解除します。 

コマンドフォーマット 


26 

- - v - - 

コマンド No 


eeee 

1 Is 1 • L 

b b b b 
u u u u 
0 0 0 0 
D D D D 
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リスト10-17 


100 GOSUB NINTHS 

110 INPUT ” Set read after write flag (y/n) ” ； DUM$ 

120 IF DUM$ = ” y” OR DUM$= ，， Y，，THEN 200 

130 INPUT ’’Reset read after write flag , OK (y/n) 

140 IF DUM$<> ，， y” AND DUM$<> ，， Y” THEN 110 

150 * 

160 A=26 : GOSUB >KSNDCOM I 

170 PRINT "Complete” | リードアフタ-フイトモ-ドを解除 

180 END 


200 1 

210 A=25 : GOSUB ポ SNDCOM 
220 PRINT ” Complete ，， 

230 END 


リー ドア フター ライト モード 


^1000-1220： 共通サブルーチン （182 P ) 


;DUM$ 


コマンド25実行例 

run 

Set read after write flag (y/n) ? y リー ドア フターライトモード 

Complete 

Ok 

time$ = ” 00:00:00”：for i = 0 to 8:d s k o S l,0,0,l:next:print timeS 
00 : 00:03 
Ok 

※リードアフターライトモードを指定すると書き込む速度は遅くなる。 
run 

Set read after write flag (y/n) ? n 

Reset read after write flag , OK (y/n) ? y モ-ド解除 

Comp 1e te 
Ok 


= 00:00:00" : for i = 0 to 8 : d s k o $ 1,0, 0,1: next: print t ime$ 
00:00:01 
Ok 


10-3-11 ブレークポイントに関するコマンド 

デバッグのために、ブレークポイントが設定できるようになっています。ブレークポイン 
卜とは一種のトラップ（わな）で、マシン語の実行をそこで止めることができます。その時の 
各レジスタの値や、ブレークポイントのアドレスまでは正常に動作した、などの情報により 
デバッグを行なうのです。ブレークポイントに指定したアドレスには 、 RST 08 H (0 CFH ) 
命令がセットされます。プログラムの実行中にこの命令を通ると、0008 H に実行が移り、各 
レジスタの値をワークエリアに保存した後、 ROM プログラムのホットスタート （00 C 1 H ) に 
行くようになっています。ですから RST 08 H 命令が実行されないと意味を持ちません。 

(例1 ) 

6000 : 21,00,00, C 9 ( LD HL , 0000 H •• RET ) 

个 

I 

ブレ--クポイントを600 1 H に指定すると 

6000 : 21， CF ，00. C 9 (LD HL , 00 CFH : RET ) 

6000 H iff 地から実行させても止まらない。 
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(例 2 ) 

6000 : 21, 00. 00. C 9 ( LD HL . 0000 H : RET ) 

t 

ブレークポイントを 6( X )0 H に指定すると 

6000 : CF , 00. 00. C 9 (RST 08 H : .) 

6000 H 番地から実行させると止まる。 

ブレークポイント用の コマン ドは4つあります。 

1 ) コマン ド 28( ブレークボイントのアドレスを決める） 

前回指定していたら、そのブレークポイントを元に戻して、指定したアドレスへ RST 
08 H を置き、ブレーク•ポイントを設定します。 

コマンドフォ ー マット 


28 


上位 

下位 


コマンド No 


レークポイントのアドレス 


2 ) コマンド 2 9 ( 各レジスタの初期値を変える） 

ブレークポイントによるデバッグ用の GO コマンド（ユーザーのプログラムを実行させる 
コマンド。コマンド27 ) では、各レジスタの値を自由に設定できるようになつています。 
7 F 28 H 〜 7 F 41 H までに全レジスタのワークエリアがあり、それらの値を持つて PC (フログ 

ラムカウンタ）の示すアドレスへ実行を移すようになつています。 

コマンド29は、このレジスタ用ワークエリアの値を自由に変えることができます。 

コマンド フォー マツ ト 


29 レジスター 番号 上位 下位 


コマンド No , 初期値 


レジスター 番号 

レジスターの 名前 

7 

HL ， 

8 

IX 

1 9 

1 Y 

10 

1 *) 

11 

PC 

12 

SP 


*) I レジスタは下位8ビットのみ使用 


■ — ■■ 1 

レジスター 番号 

I 

レジスターの 名前 

0 

AF 

1 

巳 C 

2 

DE | 

3 

HL ! 

4 

: AF ， 

5 

BC ’ ! 

6 

DE ， 
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3 ) コマンド 27( デバッグするプログラムを実行する） 

コマンド29で決められた PC (プログラムカウンタ）のアドレスへ実行を移します。 

コマンド フオー マット 


27 


コマンド No 


4 ) コマンド 30( ブレークポイントで止まったときのレジスタの値を見る） 

ブレークボイント （RST 08 H ) で実行が中止させられると、各レジスタの値をワークエリ 
ア （7 F 28 H 〜 7 F 41 H ) に退避するようになっています。 コマンド 30は、このレジスタ用ワー 
クエリアの値をみることができます。 

コマンド フォーマット 


30 


レジスター 番号 


下位 ' 

-V- - 





コマンド No コマンド29と同じ 各レジスタの値 


レジスタ用ワークエリア 


7F28 — 

—— SP 

7F2A —— 

—— PC 

7F2C —— 

——I 

7F2E — 

—— IY 

7F30 — 

——IX 

7F32 —— 

—— HL’ 

7F34 —— 

— DE ， 


7F36 - BC ， 

7F38 - AF ， 

7F3A - HL 

7F3C - DE 

7F3E - BC 

7F40 - AF 


10-3-12 その他 

1 ) コマンド 0(ディスクのイニシャライズ） 

サブシステムの初期化。このコマンドは、起動時（コールドスタート、ホットスタートの 
とき）に1回だけ行なわれます。 

コマンドフォーマット 



コマンド No 


202 








2) コマンド 8 ( メモリーテスト） 

4( X )0 H 〜 7 EFFH までの RAM のテストを行ないます。方法としては、1バイトごとに〇〜 
255のデータを書き込み、正しく書かれたかどうかをチェックします。もし、エラーが発生 
したなら、その部分の RAM は交換しなければなりません。このテストは2分程かかります。 

コマンドフォーマット 




81 H 



〈上位 


下位 




書き込み データ 




読み込み： r "— ヌ 




80 H 



コ7、ノ ド No 不良箇所発見不良メモリのアドレス 


J テスト終了 マーク 


不良メモリの数だけくり返す 


リスト10- 19 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 


GOSUB NINTHS 

A=8 : GOSUB 木 SNDCOM 

GOSUB 木 REVPAR 

IF A=&H80 THEN PRINT ” Complete”：END 

GOSUB 木 REVPAR:ADD=A ホ 256 
GOSUB >KREVPAR : ADD=ADD+A 


GOSUB 木 REVPAR:WRITE. DATA=A 


GOSUB >KREVPAR:READ. DATA=A 


PRINT:PRINT ” Found bad 
PRINT ” Address = ”； 
PRINT ” Wr i te data = ”； 
PRINT ” Read data = ”； 
GOTO120 


address ! ”： BEEP 
RIGHTS ( ，， 0000，，+HEXS (ADD) f 4) 
RIGHTS ( ，， 00 ，， +HE：)($ (WRITE. DATA) , 2) 
RIGHTS (” 00 ，， +HEX$ (READ. DATA) , 2) 


^1000-1220： 共通サブルーチン （182 P ) 


コマン ド 8 実行例 


run 

Comp 1 e te 
Ok 

3 ) コマンド 10 

1/ 〇アドレス F 7 H にデータを出力します。このコマンドは使いません。 

コマンドフォーマット 



コマンド No F 7 H に出力するデータ （1 バイト) 
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10- 4 ユーテイリテイ 


7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

70A0 

70B0 

70C0 

70D0 

70E0 

70F0 


ァ. p ァ 3 p . ®. 

• • へヨ p へ日 p へ Yp レ Sp > 一 

•氺. pOK . p ~，«• y — • 
テチ.へ3 p へ日 p 氺. pOK . p 
ラ wtt . y — • へ _ p 8. >_• 
テチ.テチ•へ. q リへへ q 

>•2. >F へ、.へ Zq 水 • p 

OK . p • v 口.，（•口 • w 林 

• y — \へ wq ミへ 一 q ! • 5 

モ7ノへ. q リへ、 q >. 2. 

>E へ、.へ Zq 氺. pOK . p . 

v 口 • 1 (• ~モ. • y - \ 

へ wq ミ： • 7夕へ一 q ! • 

5フ7ノラ 2. pW ラ 2. p 2 
. P ラ 2. p 2. p . • イ 2. p ラ 
2. p ノ ！レ q . 


モニタのコマンドは 10個あり、各 コマンドの 頭文字を入力すると、その コマンド 名を 表示 
して、次のパラメータの入力を待つように作ってあります。 コマンドの 入力を止めたいとき 
は filELPl キーを押すと初期状態に戻ります。 

注）ディスク ユニッ トのモーターが止まっていると、 ハン ドシェイク可能になるまで、プ 
ログラムが2秒ほど止まります。 

( 1 ) E コマンド . メモリのエディット 

コマンドモードで E を押すとエディットするメモリの先頭アドレスを尋ねてきます。 

- Edit First : 60000 

例えば 6000 と入力して下さい。打ち間違った場合は \ PEL \ キーで 訂正できます。 

6000 と入力し、そこで 0 キーかスペースキーを押すと、 600 0H 〜 60FFH の内容が表示さ 
れます。力ーソルの位置で〇〜 9， A 〜 F の 16 進データを入力すると、そのデータがメモリ 
上に書き込まれます。カーソルの移動は力ーソルキーで行なえ、エディットを終了するとき 
は0キーを押します。 

また、アスキーコードによる入力もできます。 |help| キーを押して下さい n カーソルは 
アスキー文字列を表示している欄に移動します。そこでキーボードより、なにか文字を打ち 
込めば、そのアスキコードが書き込まれます。 

16 進入力に戻るときは再度 I HELP | キーを押します。 

(2) T コマンド……メイン、サブシステム間の データ 転送 

①メインシステムからサブシステムへデータを転送する場合は、 T に続いて M を押します。 


10-4-1 サブシステム用タイニーモニタ 

サブシステムのメモリを扱うモニタプログラムです。サブシステムの各種コマンドを使い、 
メモリの エディッ トやブレークポイントの設定ができます。 

リスト 10-20 


Monitor 〇 i sub—system ( disk system ) 〔Command mode 〕 


〔Edit mode 〕 


Edit First:7000 


XX00 一 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 


〔 CODE 〕 一 CASC ) 


0 0 8 0 
0 8 F 7 


F1035FBFA2 
D 77237 FE03 


7 3 
D 2 


0E080D67FA 00100 E 
0320890770722775 

100BEDABA 2801 BD9 
07B43C2F030B7001 

39D 681 B19B9022F 
57E0D7D2047B 335 


0 

0 


0AB081A91EDBD727 
0D 07375073 E0CDB0 

10360 FD 801030772 
072070 C2B 772 C500 

29FA4D20DD6B707E 
05D29C 02 C90F 3703 

0DE0D0460DA32A00 
0C77C0AEDC2D00 


0 0 0 
4 7 7 


0 

7 

481DA181EG2F6 
FFCCF7D77E301 


048D036B71A9F 
0F0C2C4D 77507 


7 21 
D 3 7 


0DB00FE6DFD8E90A 

7C47BD37C0C20C7D 

30D691FBFD20A7C1 
37ED787FEC 023302 

360DBEA 009460 C29 
CD7C 03072 CAEDC3C 

0D 60302807 DA1070 
7C 002030 B3CF72D7 

21A1719B935B7500 
102 C7C047D4D 7371 

31F373EDB0E6DFE2 
C0DCDC3E 0237 C703 
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-Transport [Main = > Sub system ] Start : C 000 End : COFF Dest : 6000 p 
転送するデータの先頭、終了アドレスと転送先（サブシステム）の先頭アドレスを指定しま 
す 0 ァドレスの入力は エディツ ト コマン ドのときと同じです。 


COFF 

COOO 



(i0 F F 
GOOO 


メインシステム サブシステム 


図 10 - 4 - A 

②サブシステムのデータをメインシステムへ送る場合は T と S を押します。 

-Transport [Sub 二〉 Main System ] Start : 6000 End * 60 FF Dest : C 000(5 
続けてサブシステム側のデータの先頭、終了アドレスと、メインシステム側の転送する先 
頭アドレスを指定します。ただし、転送されるデータがメインシステムの C 000 H 〜 DFFFH 
に入らない場合はエラーとなります。 

( 3 )D コマンド ……プリンタへのメモリダンプ 
先頭アドレスと終了アドレスを指定すると、256バイト単位でサブシステムのメモリの内 
容をプリンタへ出力します。 

-Dump First add * 6000 End add : 61 FF 0 
( 4 )F コマンド ……サブシステムのメモリを指定されたデータでうめる。 

指定されたアドレスの間を一定のデータでうめるコマンドです。サブシステムの先頭、終 
了アドレスとデータ （ 1バイト）を指定します。 

-Full First add *. 6000 End add : 60 FF Constant : 37 

注） Constant は 2 バイト入力可能ですが、書き込まれるのは下位の1バイトのみです。 

( 5 )G コマンド ……ユーザープログラムの実行 
指定されたアドレスから実行します。サブシステムが暴走してもメインシステムには影響 
ありませんが、ハンドシェイクが不可能となり、次にこのモニタのコマンドを実行すると動 
かなくなります。このようなときはストップリセットをすると再び動きます。 

- Go Jump address : 60001 

( 6 )M コマンド ……サブシステムでのブロック転送 

メモリのブロック転送を行ないます。転送したいデータの先頭、終了アドレスと転送先の 
アドレスを指定します。 

-Move First add : 6000 End add : 60 FF Dest add : 62001 
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62FF 

6200 

60FF 

6000 


サブシステム 
図 10- 4- 巳 

( 7 ) R コマンド……レジスタの 表示と設定 

① レジスタ値の表示 

サブシステムの コマン ド30を使い、ブレークボイントで停止したときの各レジスタの値を 
表示します。 R に続いて D を押して下さい。 

-Register ， dump 

② レジスタ値の変更 

サブシステムのコマンド29を使い、各レジスタの値を変更します。 R に続いて S を押して 
下さい。レジスタ名を聞いてくるので、変更したいレジスタ名を入力し、変更する値を入れ 
て下さい。 

レジスタ名は次のようになっています。 

AF , BC , DE , HL , AF ’， BC ’， DE ’， HL ’， IX ， IY , I ， PC , SP 
- Register , set . Register name : HL ' [ Now , FFFF ] Value : 0101 l^I 
( 8 ) B コマンド…… ブレーク ボイントの設定 

指定したアドレスにブレークポイントを設定します。 

-Set Break point Break point : 6000^1 
(9 ) C コマンド…… PC レジスタより実行する。 

レジスタセットで設定された PC (プログラムカウンタ）より実行を再開します。 

-continue ( Now , program counter is r Fr P ). Push return key 

(10) Q コマンド……このプログラムを終了して BASIC に戻ります。 

- Quit 

マシン語は Nss-BASIC のモニタで正確に打ち込んで 

BSAVE ” edit . mac ”，& HE 000，& H 400 
で BASIC プログラムと同一のディスクへ BSAVE して下さい。 

マシン語プログラムの確認は次のチェックサムプログラムを使うと便利でしょう。 
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リスト 10-21 チェックサムプログラム 


1000 5 

1010 # - Check sum program ver 1.00- 

1020 ^ 

1030 DIM SUM2(1G) 

1040 ON STOP GOSUB 木 PUSHSTOP!ST 〇 P ON 

1050 PRINT ”- Check sum program ver 1.00 -- w : PRINT 

1060 INPUT ” First addr e s s= ”； FADDS : FADD=VAL (，， &H”+FADD$) 

1070 INPUT ” End address=";EADD$:EADD=VAL(”&H”+EADD$) 

1080 IF FADD>EADD THEN PRINT ” Error w : PRINT:BEEP:GOTO 1060 
1090 PRINT:INPUT "Output to CRT or Printer (C/P) ”； DUM$ 
1100 IF DUMS=”c” OR DUM$ = ，， C” THEN DEVS= H SCRN: M : GOTO 1130 

1110 IF DUM$=”p” OR DUM$=”P” THEN DEV$=”LPT1 : ” ： GOTO 1130 

1120 GOTO 1090 
1130 # 

1140 OPEN DEVS FOR OUTPUT AS «1 
1150 FOR ADD=FADD TO EADD STEP 256 
1160 GOSUB 木 DUMP 

1170 NEXT ADD 
1180 CLOSE 
1190 f 

1200 PRINT ” Complete” 

1210 FMD 


1310 ホ PUSHSTOP 

1320 PRINT:PRINT "Complete" 

1330 CLOSE 
1340 STOP OFF 
1350 END 
2000 f 
2010 ホ DUMP 

2020 ERASE SUM2:DIM SUM2Q6) : SUM=0 
2030 PRINT 
2040 f 

2050 FOR 1=0 TO15 

2060 PRINT 林 1,RIGHTS (” 000O”+HEX$(ADD+I 本 16) p 4); ” : ”； 

2070 SUM 1=0 

2080 f 

2090 FOR J=0 TO15 

2100 DAT=PEEK(ADD+1 木 16 +J) 

2110 SUM1=SUM1+DAT:SUM2CJ)=SUM2 (J)+DAT 

2120 PRINT 林 1,RIGHTS (” 0”+HEX$(DAT), 2)+” 

2130 NEXT J 

2140 1 

2150 SUM=SUM+SUM1 

2160 PRINT »1,”： ” +RIGHTS (”0”+HEX$ (SUM1),2) 

2170 NEXT I 
2180 f 

2190 PRINT ill f STRINGS C59, ASC ("-")) 

2200 PRINT 林 1,” SUM : ”； 

2210 1 

2220 FOR 1=0 TO15 

2230 PRINT »1,RIGHT$(”0”+HEX$(SUM2(I)),2);” ”； 

2240 NEXT I 
2250 # 

2260 PRINT «1,”： ”； RIGHTS (” 0”+HEXS(SUM),2) 

2270 RETURN 
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SUM : 6128 46 23 C6 A3 SC 49 CB 71217D AC 60 B8 9C : 4A 

Complete •し 11111 

アミの部分がチェックサムの値です。 


リスト 10-22 サブシステム用タイニーモニター 


1000 • 

1010 * - Monitor 〇 I sub — system ver 1.00- 

1020 p 

1030 CLEAR ， & HBFFF:DEFINT A — Z:DIM VALUE (12) 

1040 WIDTH 80,25:CONSOLE 0,25,0,0 

1050 MAXDRV=&HEC7D:MAXFLP=&HEF60:MAXMIN=&HEF62:MAXINT=&HEF62 

1060 SGNBYT=&HEF63:DRVTBL=&HEF64 

1070 IF PEEK (SGNBYT)=0 THEN "This utility can no t run on PC-8031.1W" : END 
1080 B し OAD ” edit.mac” ， &HE000 
1100 • 

1110 ’ - Display frame - 

1120 J 

1130 LOCATE 0, 0:PRINT ”；” +STRINGS (73, ASC (，，一”）） +” ； ” 

1140 PRINT ” ； Monitor of sub 一 system ( 5' disk system ) ”； 

1150 PRINT ” 〔Command mode 〕 〔Edit mode 〕 ；” 

1160 PRINT ” ； -”+STRINGS(72, 45)+” ；” 

1170 PRINT ” ；一 ” +STRINGS(72 P 32)+” 

1180 PRINT ” ;-"+STRINGS (55, 45)+” ; "+STRINGS (16, 45)+， 9 

1190 PRINT ”； XX00 - 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ； ”； 

1200 PRINT " (CODED 一 〔 ASC〕;" 

1210 PRINT ” ； 一” +STRINGS (55, 4 5)+” ; W +STRINGS (16, 45)+” 

1220 FOR 1=0 TO15 

1230 PRINT ” ；”+SPACES (56)+” ;"+SPACES (16)+” ；” 

1240 NEXT 

1250 PRINT ” ；一 ” +STRINGS(72, 45 )+” ；”； 

1260 CMDMODE=0:GOSUB ♦DSPCMD 
1300 f 

1310 ， - Get command - 

1320 • 

1330 ホ COMMANDMODE 

1340 ON HELP GOSUB 木 CANCEL:HE し P ON 


実行例 

run 

First address^? 6000 
End address=? e05f 

Output to CRT or Printer (C/P) ? c 


42D3FD4E 926348 Ac 
c 95956 A 292347802 


37DD336FCB00DE83 

C1CC1E65CEF0C00E 


23BE3A38DB0EC33A 

EC14E320C2200E13 


F0EBCDE7F903EAAD 

1E026C7540BE031C 

3D03DE9A0B9A5DFC 
C6EEC4C0EE 73 CC64 

13DA33331BBD9063 

EC23EEE0B20CC06E 

103DA6A8D91D3E36 

DECC3330C0C4E023 

390EDDDA59B3C3ED 

CEE4CCC0CC1E6E7C 

1333EDF 510 BADA9C 
EC 32414 D1F2 3C3C0 

21333 EAF800D3D3E 
BECEE 01532 ECECE0 

3D0669B880CCABA5 
C5E33C10CBC 4343 c 


CBC 4343 c 


133DD 23719 D3D3DF 
EC4CC1E5E7CECEC4 

113CEBAA2BF61A1A 
9EC111 31504303 C0 

390EE3D3D10DED3F 

C2E00EC1ECEC0CE5 

23799 CF8731B3AA8 
EC5CC640B1B0E430 

82333 DAA53DEA3D7 
9ECEEC11E2C03EC5 

3C16A23F1059D 61 A 
C6E 33116 CECCC301 


0000000000000000 
0123456789 ABCDEF 
0000000000000000 
eeeeeeeeeeeeeeee 
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1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
4000 


CMDMODE=0:GOSUB *DSPCMD:CODEMODE=2:GOSUB 


LOCATE 0,3:PRINT 
LOCATE 3,3 
A=ASC(INPUTS Cl)) : A 


-"+STRINGS(72, 32) 


木 DSPCODE 


IF A=ASC(”E ”） 
IF A=ASC ( ，，丁”） 
IF A=ASC( ，， D ”） 
IF A=ASC( ，， F ”） 
IF A=ASC(”G，” 
IF A=ASC("M ”） 
IF A=ASC("R ，，） 
IF A=ASC( ，， B ”） 
IF A=ASC( ，， C") 
IF A=ASC( ，， Q ”） 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


=A AND 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


&HDF : IF A<65 OR A>90 
” Edit ” 

” Transport " 

” Dump ” 

” Full ” 

” Go ” 

” Move " 

"Register" 

” Se t break point” 
"Con tinue ” 

” Quit ” 


GOTO *COMMANDMODE 

• - Push help key - 

木 CANCEL 

RETURN *COMMANDMODE 

f 

’ - Transport data - 

9 

木 TRANSPORT 

丁 RANSM=&HE012:TRANSS=&HE015 

A=ASC (INPUTS Cl))AND &HDF:TYPES=CHRS CA) 

IF A=ASC(”M ”） THEN PRINT w (Main => Sub sys 


THEN 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

HELP 


GOTO 1380 
ホ EDITMODE 
木 TRANSPORT 
ホ DUMP 
ホ FULL 

木 GO 

ホ MOVE 
ホ REGISTER 
ホ SETBREAK 
^CONTINUE 
OFF:CLS:END 


IF A=ASC( ，， S”）THEN PRINT 
GOTO 2050 


t em 〕 

〔Sub => Main system 〕 


； : GOTO 2090 
:: GOTO 2090 


PRINT 

PRINT 

PRINT 


Start: 
End : 
De s t 


GOSUB ^GETADD:FA=VAL r +ADDS) : FA2!=ADD! 

GOSUB 木 GETADD:EA=VAL (” &H” +ADD$):EA2!=ADD! 

GOSUB ホ GETADD:DA=VAL (” &H W +ADD$):DA2!=ADD! 

IF FA2! > EA2 ! THEN ERS = ,f Firs t add > End add w : GOTO ^TERROR 
SIZE2!=EA2! - FA2! + l:SIZE=VAL (” &H” +HEXS CSIZE2!)) 

IF TYPES ピ M” THEN CALL TRANSM CFA f SIZE,DA) : GOTO *COMMANDMODE 
IF DA2!+SIZE2!>=57345! THEN ER 仁 ” Destroy program GOTO ホ TERROR 


IF DA2!<49152! THEN ERS 二 
CALL TRANSSCFA,SIZE,DA) 
GOTO 木 COMMANDMODE 


Destroy program ” ： GOTO 木 TERROR 


Can no 


ranspo r t 


ホ TERROR 

LOCATE”0,3:BEEP:PRINT ”； - く Abnormal termination. 
PRINT ” Push re turn key. ; : COLOR® (53, 3)-(70, 3) • 

IF INKEYSOCHRS (13) THEN 2260 

LOCATE 0,3:PRINT Transport ” +STRINGS(60, 32)+” 
GOTO 木 TRANSPORT 

• - Full memory - 


6 


C w ;ER$;” 〕 


: LOCATE 14,3 


ホ FULL 

PRINT ” First add:"; : GOSUB ^GETADD : FA=VAL C"&H"+ADDS) : FA2!=ADD! 

PRINT ” End add:"; : GOSUB *GETADD:EA=VAL (”&H”+ADDS) :EA2!=ADD! 

PRINT ” ConstanU ”； : GOSUB *GETADD: CONSTANT 二 VAL ( ，， &H”+ADDS) 

IF FA2 ! > EA2! THEN ERS = ” F i rs t add > End add" : GOTO >KFERROR 
FULL=&HE018 

SIZE=VAL r &H"+HEXS(EA2! - FA2! + l)) 

CALL FULL(FA,SIZE,CONSTANT) 

GOTO >»<COMMANDMODE 


- Can 


t full — 


ホ FERRQR 

LOCATE 0,3:BEEP:PRINT く Abnorma 

PRINT "Push re turn key, > ” ；： COLOR® 

IF INKEYSOCHRS (13) THEN 3260 

LOCATE 0,3:PRINT ”；一 Full ” +STRINGS (65,32) + 
GOTO 冰 FULL 


1 t ermin a tion. 
(53, 3)-(70 e 3) 9 6 


ER$ 


〕 


: LOCATE 9,3 
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4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 


’- Move data - 

t 

水 MOVE 

PRINT ” First add :”； : GOSUB 水 GETADD : FA=VAL (” & H ” +ADDS) : FA2 ! =ADD ! 

PRINT ，， End add :，，； : GOSUB 木 GETADD •• EA=VAL (” & H ，， +ADDS) : EA2 ! =ADD ! 

PRINT ” Destination add:"; : GOSUB 木 GETADD:DA=VAL(”&H”+ADDS) 

IF FA2 ! > EA2! THEN ERS 二 ” First add > End add" : GOTO TERROR 
MOVE=&HE01B 

SIZE=VAL("&H” +HEXS(EA2!-FA2! +1)) 

CALL MOVE (FA,SIZE,DA) 

GOTO ホ COMMANDMQDE 

t 

’ Can not move - 

* 

ホ MERROR 

LOCATE 0,3:BEEP:PRINT ”；- く Abnormal termination. 〔 ” ； ERS;” 〕 ”； 

PRINT ” Push return key. > ” ；： COLOR® (53,3)-(70 f 3) # G 
IF INKEYSOCHRS (13) THEN 4260 

LOCATE 0, 3:PRINT ”；- Move ” +STR ING$ (65, 32)+” ド ；： LOCATE 9,3 
GOTO ホ MOVE 

P 

’ Run user’s program - 

t 

ホ GO 

PRINT ” Jump address:"; : GOSUB 木 GETADD:JUMPADD=VAL (”&H"+ADDS) 

GO=&HE01E 

CALL GO (JUMPADD) 

GOTO ホ COMMANDMODE 

t 

• - Run program when use break point - 


^CONTINUE 

GETREG=&HE024:PCNUM=11 : CALL GETREG(PCNUM,VALUE) 

PRINT ” (Now, program counter is ”； RIGHTS (”0000” +HEXS(VALUE),4); 

PRINT ”） 一 Push return key. ” ；： COLOR® (49, 3) - C66 f 3) , 6 

IF INKEYSOCHRS (13) THEN 6070 

CONTBK=&HE02A 

CALL CONTBK 

GOTO ホ COMMANDMODE 

» 

f - Set break point - 

t 

ホ SETBREAK 

PRINT " Break point:"; : GOSUB 木 GETADD:BREAKP 〇 INT=VAL(”&H”+ADD$) 

SETBRK=&HE027 

CALL SETBRK (BREAKPOINT) 

GOTO ホ COMMANDMQDE 

9 

’ - Dump or set register - 

t 

ホ REGISTER 

GETREG=&HE024:SETREG=&HE021 
A=ASC (INPUTS (1)) AND &HDF 
IF A=ASC(”D ”） THEN ポ DUMPREG 
IF A=ASC(”S ”） THEN ^SETREG 
GOTO ヸ REGISTER 

f - Set register - 

» 

ホ SETREG 

PRINT ”， set. Register name :”； 

AS = "" 

FOR 1=1 TO 4 

A1S=INPUTS (1) : IF Al$=” ” OR A1S=CHRS (13) THEN 7230 
IF Al$=” •” THEN 7210 
A1$=CHR$ (ASC(AIS) AND &HDF) 

IF OR A1$>”Z” THEN 7170 

PRINT Al$; : AS=A$+A1$ 

NEXT 

RESTORE 7490 
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7240 FOR REGNUM=0 TO12 

7250 READ BS:IF A$=BS THEN 7330 

7260 NEXT REGNUM 

7270 GOTO ホ RSERROR 

7300 f 

7310 f - change data - 

7320 f 

7330 PRINT ” CNow , ”； 

7340 CALL GETREG (REGNUM, VALUE) 

7350 PRINT RIGHTS (” 0000 ，， +HEX$ (VALUE) , 4) ; ” 〕 Value :” ； 

7360 GOSUB 冰 GETADD:VALUE=VA し （ ” &H” +ADDS) 

7370 CALL SETREG (REGNUM,VALUE) 

7380 GOTO ホ COMMANDMODE 
7400 f 

7410 ' - Register not found - 

7420 1 

7430 ホ RSERROR 

7440 LOCATE 0,3:BEEP:PRINT ”；- く ”； A$; ” register no t found. H ;SPACES (15) 
7450 LOCATE 31 f 3:PRINT "Push return key. ; : COLOR© (30 ， 3)-(47,3) ， 6 

7460 IF INKEYSOCHRS (13) THEN 7460 

7470 LOCATE 0, 3:PRINT ”；- Register w +SPACES(4 5) ; : LOCATE 11,3 
7480 GOTO ホ SETREG 

7490 DATA AF,BC,DE ， HL, AF ， ， BC ， ， DE ， ， HL ， ， IX, IY, I,PC,SP 

7500 1 

7510 ’ - Dump register - 

7520 1 

7530 ボ DUMPREG 

7540 PRINT ”， dump” 

7550 FOR REGNUM=0 TO12 

7560 CALL GETREG (REGNUM,VA し UE(REGNUM)) 

7570 NEXT REGNUM 

7580 LOCATE 0,7 

7590 FOR 1=0 TO15 

7800 PRINT ” ； ”+SPACE$ (56)+” ； ”+SPACES (16)+” ；” 

7610 NEXT _ 

7620 LOCATE 0,9:PRINT ”； - Register dump ” 

7630 RESTORE 7770 

7640 FOR 1=0 TO12 

7650 IF (I MOD 5)=0 THEN PRINT:PRINT ”； ”； 

7660 READ A$:PRINT A$+” ： ”+RIGHT$ (”0000” +HEX$(VALUE(I)) ， 4 )； 

7670 NEXT 

7680 PRINT:PRINT 


7690 PRINT ”； - Sequence of flags in F register ― 

7700 PRINT 

7710 PRINT ”； S Z X H X P/V N C 

7720 PRINT ，• ； ”；： F=VALUE C0) -INT (VALUE (0)/256) 木 256 


7730 FOR 1=7 TO 0 STEP -1 

7740 IF (F AND (2 A I))=0 THEN PRINT ” 0 ”； ELSE PRINT 1 

7750 NEXT 

7760 GOTO 木 COMMANDMODE 

7770 DATA ” AF ”，” BC ”，” DE ”，” HL ”， AF ， • BC 、 DE 、 HL’ 

7780 DATA MX ”，”IY ”，”I ” •” PC 91 ， SP ” 

8000 f 

8010 f - Edit data - 

8020 f 

8030 木 EDITMODE 

8040 PRINT "First:"; : GOSUB *GETADD :KADD=VAL (” &H”+ADDS) 

8050 CMDMODE=l:GOSUB *DSPCMD:CODEMODE=0:GOSUB ^DSPCODE 

8060 LOCATE 0 f 7 ^ 

8070 DSPMAC=&HE000:DATGET=&HE003:DATPUT=&HE006:DSPUP=&HE009:DSPDOWN=&HE00C 

8080 KX=9:KY=7:KAX=58:KAY=7 

8090 CHANGE=0:X=KX:Y=KY:AX=KAX:AY=KAY:HLFLAG=1 

8100 CALL DSPMAC CKADD) 

8110 ON HELP GOSUB 木 CHANGFLG 
8120 ポ GETHEX 

8130 LOCATE X,Y:HELP ON : A=ASC (INPUTS (1))•• HELP OFF 
8140 f 

8150 IF HLFLAG=1 THEN LSIZE=2:RSIZE=1 ELSE LSIZE=1:RSIZE=2 
8160 f 

8170 IF A=13 THEN ♦COMMANDMODE 
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8180 

8190 

8200 

8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8390 

8400 

8410 

8420 

8430 

8435 

8440 

8450 

8460 

8470 

8480 

8490 

8500 

8510 

8520 

8530 

8540 

8550 

8560 

8570 

8580 

8590 

8600 

8610 

8620 

8630 

8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

8720 

8730 

8740 

8750 

8760 

8770 

8780 

8790 

8800 

8810 

8820 

8830 

8840 

8850 

8860 




IF A=28 THEN X=X+RSIZE 

IF X=KX+48 THEN Y=Y+1 
IF Y=KY+16 THEN Y=KY+15 


HLFLAG=LSIZE MOD 2 
X=KX : HLFLAG=1 
GOSUB 木 UPMAC 


ELSE 8230 
ELSE 8230 


IF A=29 
IF X=KX-2 
IF Y=KY-1 


THEN X=X - し SIZE 
THEN Y=Y-1 
THEN Y=KY 


H し FLAG=LSIZE MOD 2 ELSE 8270 
X=KX+46 : HLFLAG=0 ELSE 8270 
GOSUB ホ DOWNMAC 


IF A=30 THEN Y=Y 一 1 : IF Y=KY — 1 THEN Y=KY : GOSUB 水 DOWNMAC 


IF A=31 THEN Y=Y+1 : IF Y=KY+16 THEN Y=KY+15 : GOSUB 木 UPMAC 


LOCATE X,Y 

IF A>=48 AND A<=57 THEN P=A-48:GOTO 木 SETHEX 
IF A>=65 AMD A<=70 THEN P=A_55:GOTO 木 SETHEX 
IF A>=97 AND A<=102 THEN P=A — 87:G 〇丁〇木 SETHEX 
GOTO ホ GETHEX 
ホ SETHEX 

LOCATE X,Y:PRINT HEXS (P) 

IF HLFLAG=1 THEN OX=KX ELSE OX=KX+l 
OY=KY 

DUM=VAL (” &H” +HEXS(KADD+(Y — OY) 木 1S+(X — 〇 X) ¥3)) 

CALL DATGE 丁 （ DUM,M) 

IF HLFLAG=1 THEN M=M-1 NT (M/16)^1 G+P^k 16 ELSE M= IMT (M/16) 木 16+P 
DUM=VA し （” &H” +HEXS (KADD+ (Y-OY) 水 16+ (X-OX)¥3)) 

CALL DATPUT (DUM f M) 

ホ SETASC 

IF (M < 32) OR (M >247) THEN M=ASC (”.”） 

し〇 CATE KAX+(X-OX)¥3 f Y:PRINT CHR$ (M) 

» 

X=X+RSIZE : HLFLAG=LSIZE MOD 2 

IF X=KX+48 THEN Y=Y+1 : X=KX : HLF し AG=1 ELSE 8520 

IF Y=KY+16 THEN Y=KY+15 : GOSUB *UPMAC : REM right 

t 

LOCATE X,YrGOTO 冰 GETHEX 
ホ SET128 

M=ASC(MIDSCB2S f (Y — 〇 Y) 水 16+(X — 〇 X)¥3+1 ， 1)) 

IF HLFLAG=1 THEN M=M 一 INT (M/1S) 木 1S+P 木 1S ELSE M=INT (M/16) 木 16+P 
MIDS(B2S, (Y-OY) 木 18+(X-OX)¥3+l, 1)=CHR$ (M) 

GOTO 本 SETASC 
ホ CHANGFLG 
HELP OFF 

IF CHANGE=1 THEN CHANGE=0 : CODEMODE=0 : GOSUB 木 DSPCODE:RETURN 木 GETHEX 
CHANGE=1 : CODEMODE=1 : GOSUB 木 DSPCODE:RETURN 木 GETASC 
ホ GETASC 

LOCATE AX,AY:HELP ON:A=ASC (INPUTS (1)): HELP OFF 


IF A=13 THEN 木 COMMANDMODE 


IF A=28 
IF AX=KAX+16 
IF AY=KAY+16 


THEN AX=AX+1 
THEN AY=AY+1 
THEN AY=KAY+15 


: AX=KAX 
: GOSUB 本 UPMAC 


ELSE 8710 
ELSE 8710 


IF A=29 
IF AX=KAX-1 
IF AY=KAY-1 


THEN AX=AX-1 
THEN AY=AY-1 
THEN AY 二 KAY 


ELSE 8750 
: AX=KAX+15 E し SE 8750 
: GOSUB ♦DOWNMAC 


IF A=30 THEN AY=AY-1 : IF AY=KAY-1 THEN AY=KAY : GOSUB 木 DOWNMAC 


IF A=31 THEN AY=AY+1 : IF AY=KAY+16 THEN AY=KAY+15 : GOSUB 木 UPMAC 


LOCATE AX, AY:IF A>=28 AND A<=31 THEN 木 GETASC 
IF (A < 32) OR (A > 247) THEN A=ASC (” • ”） 

PRINT CHRS(A) 

MX=(AX-KAX) 木 3+KX:MY=AY 

LOCATE MX,MY:PRINT RIGHTS("O'+HEXS CA) f 2) 
MX=MX+1 

DUM=VAL (” &H” +HEXSCKADD+(MY-KY) 木 1S+(MX-KX) ¥3)) 
CALL DATPUT (DUM f A) 
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8880 

8890 

8900 

8910 

8920 

8930 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 

9500 

9510 

9520 

9530 

9540 

9550 

9560 

9565 

9570 

9580 

9590 

9600 

9610 

9620 



AX=AX+1 

IF AX=KAX+16 THEN AY=AY+1 : AX=KAX ELSE 8930 

IF AY=KAY+16 THEN AY=KAY+15 : GOSUB *UPMAC : REM right 

f 

locate ax,ay：goto *getasc 

9 

9 - Dump memory to printer - 

t 

ホ DUMP 

RD25G=&HE00F 

PRINT ” First add:"; : GOSUB ^GETADD:FIRSTBLK=VAl(”&H”+LEFTS(ADDS,2)) 
PRINT ” End add:"; : GOSUB *GETADD : ENDBLK=VAL r &H M +LEFTS CADDS, 2)) 

FOR BLKNUM=FIRSTBLK TO ENDBLK 
K2ADD=BLKNUMm<256: NUL し BUFF=VARPTR («0)+9 
CALL RD256 (K2ADD ， NU し LBUFF) 

FIELD »0 f 128 AS BLK1S ,128 AS BLK2S 

LPRINT " ===== Dump memo r y of sub - system (”； 

LPRINT RIGHTS (”0000”+HEXS (K2ADD),4 )； 

し PRINT RIGHTS (” 0000”+HEX$ (K2ADD+255) , 4); ”） =====，， 

LPRINT 

LPRINT ” 0123456789 ABODE F" 

R$=B し Kl$: 〇 FFSET=0:GOSUB 木 PRTDATA 
RS=BLK2$ : OFFSET=1 : GOSUB 本 PRTDATA 

IF (B し KNUM-FIRSTB し K+l) MOD 3 THEN LPRINT:LPRINT ELSE LPRINT CHR$(12) : 
NEXT 

GOTO 水 COMMANDMODE 

ホ PRTDATA 

FOR J=0 TO 7 

LPRINT ” " ； RIGHTS 0000 w +HEXS (K2ADD+(J+OFFSET 木 8) 木 16) , 4)+” •• ”； 

US =，， ” 

FOR K=1 TO16 

VS=MID$ (RS,K+J 木 16,1) : LPRINT RIGHTS (” 0”+HEXS (ASC(V$)) ， 2)+” ”； 

IF VS ぐ ” OR VS> ，，秒 ” THEN V$ = "•” 

us = u$+vs 

NEXT K 

LPRINT ” ” ； U$ 

NEXT J 
RETURN 
氺 DSPDATA 

FOR J=0 TO 7 

PRINT ”； ” +RIGHTS (” 0000”+HEX$ (J+ 〇 FFSET 木 8), 4)+” - ”； 


FOR K=1 TO16 

VS=MIDS (R$, K+J>K16 f 1) : PR INT R IGHT$ (” 0”+HEX$ (ASC (V$) ) , 2)+” ”； 

IF V$ く ” ” OR V$> " 秒 ” THEN V$= 

U$=US+V$ 

NEXT K 

PRINT ”;US 
NEXT J 
RETURN 
ホ DSPCMD 

IF CMDMODE=0 THEN COLOR® (42,1) — （ 57,1),4:COLOR® (60,1) — （ 72,1),0:RETURN 
COLOR® (42, l)-(57,1) f 0 •• COLOR® (60, l)-(72 f 1), 4 : RETURN 
ポ DSPCODE 

IF CQDEM 〇 DE=0 THEN COLOR® (59, 5) - (64, 5) , 4 •• COLOR® (68, 5) — （ 72, 5) f 0 •• RETURN 
IF CODEMODE=l THEN COLOR® (59, 5) — （ 64, 5) , 0 : C 〇し〇 R@ (68, 5) — （ 72, 5) , 4 •• RETURN 
COLOR® (59, 5) — （ 64, 5) , 0: COLOR® (68, 5) — （ 72, 5) , 0 : RETURN 
♦UPMAC 

KADD 二 VAL (” &H” +HEX$CKADD+16)) 

CALL DSPUPCKADD) 

RETURN 
木 DOWNMAC 

IF KADD<0 THEN KADD2!=KADD+65536 ! ELSE KADD2!=KADD 
KADD 二 VAL (” &H” +HEXS (KADD2! 一 16)) 

CALL DSPDOWN (KADD) 

RETURN 

*GETADD 

ADDS = " 

A=ASC (INPUTS(1)) 
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E000 

E010 

E020 

E030 

E040 

E050 

E060 

E070 

E080 

E090 

E0A0 

E0B0 

E0C0 

E0D0 

E0E0 

E0F0 


SUM : 

E200 

E210 

E220 

E230 

E240 

E250 

E260 

E270 

E280 

E290 

E2A0 

E2B0 

E2C0 

E2D0 


SUM : 6128 46 23 C6 A3 6C 49 CB 71217D AC 60 B8 9C : 4A 


9630 IF A=13 OR A=32 THEN ホ RETADD 

9640 IF A=127 AMD ADDS く 〉”” THEN ホ DELADD 

9650 IF LEN (ADDS)=4 THEN 9620 

9660 IF A>&H2F AND A く &H3A THEN 9680 

9670 A=A AND &HDF:IF A く &H41OR A>&H4G THEN 9620 

9680 PRINT CHRS CA) ; : ADDS=ADDS+CHRS CA) 

9690 GOTO 9620 
9700 水 DE し ADD 

971.0 ADDS=LEFTS (ADDS, LEN (ADDS) — 1) 

9720 PRINT CHRS (29)+” ” +CHR$(29); 

9730 GOTO 9620 
9800 ホ RETADD 
9810 PRINT ” ”； 

9820 ADDS=RIGHTS r 0000” +ADDS , 4) 

9830 ADD!=VAL(”&H”+ADD$) •• IF ADD!<0 THEN ADD ! =ADD !+65536 ! 
9840 RETURN 


42D3FD4E 926348 Ac 
c 9 5 956 A 292347802 


8 0 2 


37DD336FCB00DE83 

C1CC1E65CEF0C00E 

23BE3A38DB0EC33A 

EC14E320C2200E13 

F0EBCDE7F903EAAD 

1E026C7540BE031C 

3D03DE9A0B9A5DFC 

C6EEC4C0EE73CC64 

13DA 33331 BBD 9063 
EC23EEE0B20CC06E 

103DA6A8D91D3E 36 
DECC3330C0C4E023 

390EDDDA 5 9 B3C3ED 
CEE4CCC0CC1E6E7C 

1333EDF510BADA9C 
EC 32414 DIF 23 C3C0 

21333 EAF800D3D3E 
BECEE 01532 ECECE0 

3D0669B880CCABA5 
C5E33C10CBC 4343 c 

133DD 23719 D3D3DF 
EC4CC1E5E7CECEC4 

113CEBAA2BF 61 A1A 
9EC111 31504303 C0 

390EE3D3D10DED3F 

C2E00EC1ECEC0CE5 

23799 CF8731B3AA^8 
EC5CC640B1B0E430 

82333 DAA53DEA3D7 
9ECEEC11E2C03EC5 

3C16A23F1059D61A 
C6E 33116 CECCL 5301 


C94SBC72EC1C06 
F0DD0F 34243 B46 


0E3D88F30DE000 

00EC106E0C0211 

19A0KEGA65FE66 
1C 3123630 EE300 

12D6553D307F5F 

EEC0DE2CE08DDD 

0BD5B0ECA12BFB 
BB4E1 0743133 D3 

DD 303193 DF1E0E 
ECE041CEC 60323 

7FA1E12606E9E1 
0E311EE 3063 C3D 

87D3D8BDE3F7F6 

08CECBBC02EFDF 

12CA7DDB3E60D0 
03431EC0E 78221 

11FDE7FEA922E3 

E06C20E03C3E31 

3E 60587 FD989FF 
4361 E085CF0FDD 


c F 0 F D D 


EF3E 912810 E400 
1E20F 030013 C22 

D6E 30117 E35DEE 
C87E1E 0501 E033 

823A3BEA 320233 
0.3E 31131 E10EEE 

E76D23F3A31B27 
213 C14E13E1B00 

5ED03E68DC2DDD 

D3C0E180CGECCC 

35BECD2ADD70FA 
4E 006 C314C71D1 


B2EA6DEDD 6167 CBC 
4CBFD4FB08EB 2124 


3336A65A63FA3A1E 
EE1336C3FEC3E311 


336C3FEA 


A6ADD3FD0A3DAD3D 
331 CC24C 23 1C3CEC 


DD5CBE8A2D2EDCA9 
CCE 04704 BC14C430 

1DFE 3973 BE3BF9DE 
C060EC4E74E241C2 

3E6FA6AABBC3A005 
E0663F 03126 E101E 

AF38D08D33DA30E9 

3620C20C2EC3EF0F 

D6E7A23D7A3DA130 

C6764B04T3EC32E1 

B39A3BA33DAED6A3 
42C0E70EEC34C 531 

3E38ABFACED313D2 
E7E 0315364 c 202 cl 

A9A3D38DD313EE03 

3C30C20CC20E050E 

D7DAD37C13E633EC 

CFC04E54EE03EE06 

A0DF3AA3363DA63D 
4245E 31 EE3EC33EC 

3238AD86ADACDDA0 
EBE03C033C30CC31 

ABA7DE3DDBDE0BD6 
3735 C41CC0C000C0 

DBDAC1ABBE09EED5 

C1C14E10400C004E 

D3C833FE39E 23930 
4240EE60EC01ECE0 


0000000000000000 
0123456789 abcdef 

IX IX IX IX 11 IX IX 1i IX 1M Is IX 11 IX IX 1M 

EEEEEEEEEEEEEEEE 
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E2E0 ••1A FE F8 30 04 FE 20 30 02 3E 2E DF 1310 FI3E : 31 
E2F0 : 3B DF D51110 00 19 D1 C9 F5 3E 0D DF 3E 0A DF : 09 


SUM : 

E300 

E310 

E320 

E330 

E340 

E350 

E360 

E370 

E380 

E390 

E3A0 

E3B0 

E3C0 

E3D0 

E3E0 

E3F0 


SUM : 92 2D 3C 14 77 83 66 54 A8 D2 77 A3 67 DF 77 D6 : EA 


10-4-2 片面、両面切り換え 

NEC のシステムディスクには、片面ディスクシステムと両面ディスクシステムの2つが 
あります。 PC -8801 のシステムディスクには “ SStoDS ” ， “ DStoSS ” の2つのユーティリティ 
があり、データの交換ができたのですが、 PC -8801 mkl ] には.添付されていません。 

そこでディスクシステムを自由に片面、両面に切り換えるプログラムを載せておきます。 
まず Run して下さい。 ISET コマンドで設定ができるようになります。 

© ISET 0 

現在のドライブの状態を表示します。 


② ISET < ドライブ番号>、 


S 

D 




ドライブ番号は files か LOAD コマンドで使っているドライブ番号と同じ値を使い、 


イ 


チディスクユニットを指定します。そして片面システムにするなら S を、両面システムなら 
D を指定します。 

ISET 1， S 0 …ドライブ1を片面にする。（片面のディスクを使用できます） 

ISET 2， D 0 ドライブ2を両面にする。 

③ IRESET 0 

すべてのドライブを両面モードに戻します。 

<注意> 

ストップリセットを行なったときは、必ず IRESET を実行して下さい。なお、このコマ 
ンドの原理は「15-15ドライブ2を片面として使う」に説明があります。 


9 


F 

4 


2 

6 


4 

A 

9 

B 

8 

8 


3 

C 


E 

5 

E 

C 

5 

B 


A0EAD5A9A 6874000 
<1!9DF7A49F7B 28000 


8 F3EBE8EAD5A10000 
6 DEFC3030CC3F0000 


B 2 
7 2 


9EDE3E 52000000 
CFF3E303CC0000 


B FD0B35A 583330000 
8 DC3DDF9F2EEE0000 

6 A 76398 D 876640000 
4 70FE71C14CCC0000 

373AF363B 2220000 
E009FEFEC 3330000 


0 

0 


0 370D3787EFDD000 
4 103CDA1AFA 33000 

B D7AFED3DB 9330000 
6 C00F0CECDCEE0000 


51 
F F 


E3E575F 9640000 
FD30A0F7CC0000 


5F9F50D03FAA0000 
D5C0F2C2DF 330000 

D33E8787D390E000 
7EE 315 C40DCCF000 

32893 B4BEC 330000 
E22CEC0C30EE0000 


0 7 D 
A 0C 

B D 5 F 
B CFO 

c 9 
7C 

91 
CD 


D77E6EFE 450000 
C3A^FEF43CC0000 


6DBEBC 5227000 
CCDFDFF33A000 


685FBFB80DB000 
ED0FDFD1 032000 

9F03F3F3E 33000 
C32DFDFE3EC000 


F 


170F93B 37351000 
F 514000 DAECF000 
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リスト 10-23 片面、両面切り換えプログラム 


FOR I=&HF220 TO &HF2FF 

READ W$:POKE I,VAL (”&H”+W$) 
NEXT 
RETURN 


’ Machine data 
» 

DATA 01,02,04,08,28, 64, CD,A3,18,08 f 7B f E5, 
DATA DA,E2,F2, 23,BE,D2 t E2,F2,21,20,F2, 85, 
DATA CF f 2C,F5 f D7 f 20 f 09 f Fl f lE f 03,D6,44 f 28 f 
DATA 93, 03 ， F1,2F,F5, ID, 3E, F0, C6, B0, 32, 78, 
DATA 21,63.EF f 85,6F,73,08,47,21,DD,F2 f E5, 
DATA 3E,18,CD,C9 f 37 # CD,47,38 f 00 f 47,3E f 17, 
DATA CD,D2,37,El•El•El•El,El ， El,C9, E5, 21, 
DATA 55,21,1E.F2,11,63,EF,7E,83,5F,3E,30, 
DATA C5, D5,79, 32,FA,F2,1A,FE,02,3E,53,28, 
DATA FC f F2 f 21,F2 f F2 f CD, 50 f 55 f Dl f 13 # Cl f 0C, 

DATA 20,8D,E5,21,IE,F2,11,S3,EF,7E,83,5F, 
DATA 12 # 13,10, FC, 3E, B0,32,78,F2,3E,0F,18, 
DATA B3, 03, IE ， 46, C3,B3,03.53, 74, 61, 74, 75, 
DATA 0A f 00, 20, 20 f 44, 72,69 # 76,65,20,31,2D, 


510 木 STORE 


21,1E 9 F2, 96 
6F,7E,El,F5 
0B, D6 t 0F P C2 
F2, Fl t E5,08 
E5 ， E5,E5 S E5 
CD, C9, 37,78 
E7,F2 ， CD, 50 
86, 4F, 23, 46 
02, D6 t 0F P 32 
10, E2,El t C9 
23, 46,3E 5 03 
8A,IE,40,C3 
73, 3A P 2D f 0D 
44, 0D,0A, 00 


110 

120 

130 

140 

150 

160 


170 

WIDTH 

80,25:CONSOLE 

0, 25 f p 0 

180 

9 



190 

PRINT 

”- Ins tall 

1 ISET •パ IRESET* 

200 

PRINT 



210 

GOSUB 

ホ STORE 


220 

GOSUB 

ホし INK 


230 

PRINT 

” Installation complete.” 

240 

PRINT 



250 

PRINT 

” I SET 

0 

• 

260 

PRINT 

" I SET 

<Drive«> f ISI : 

270 

PRINT 

n 

IDI” 

280 

PRINT 

” IRESET 

• 

o 

290 

PRINT 



300 

PRINT 

” This modu 1 

e uses 226 bytes 

310 

PRINT 




Print drive status. 


Set drives mode in t 


320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 


ホ EX IT 

CLEAR:NEW:END 


ホし INK 
» 

MAXINT 二 PEEK(&HEF62) : SGNBYT=PEEKC&HEF63) 
MAXFLP=PEEKC&HEF60) : MAXMIN=PEEKC&HEF61) 

» 

IF MAX IN 丁 <>0 AND SGNBYT<>0 THEN 450 

PRINT Your drive is not sutable 

RETURN 水 EXIT 


No t install 


POKE &HF21E, 
POKE &HF21F, 
POKE &HEEAA, 
POKE &HEEAD, 
RETURN 


MAXFLP+MAXMIN+1 

MAXINT 

&HC3:POKE &HEEAB 
&HC3:POKE &HEEAE 


&H24:POKE 

&HC0:POKE 


&HEEAC,&HF2 
&HEEAF.&HF2 


o double surface 


BEEP 


I SET 
I RESET 


Disk drive mode change command for 5 - 2D intelligent drive unit 

Last version 84/06 / 16 written by M. Kura t a 

Copyright 1984 CC) by SYSTEM SOFT 


1 


cv rc rc c 12 


234567890123 ‘t, 
55555555666666 BG6B 
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10-4-3 インタリーブ フォーマット 

第9章の8インチのインタリーブフォーマットプログラムの5インチ版です。 Run して、 
指定されたドライブにディスクを入れ、” y ” を押せば、インタリーブファクター13で物理的 
フォーマットを行ないます。 DISK-BASIC の立ち上げなどはこうすれば速くなりますが、 
例えば ASCII 社の DUAD - PC 88 D では逆に遅くなります。これはディスクを読むのに必要な 
時間の違いから来るもので、それ専用にファクターを決めてやれば解決できます。 

インタリーブのファクターを変える場合は、940行のデータを書き変えて下さい。このデ ー 
夕の順番にセクタ番号が設定されます。 

実行例 

- interleave formal 88 * -•— 一一 "* ' 

Format a disk on drive 2 • Sure Cy/n) ? y 
Comp 1e te 
Ok 

リス ト 10-24 インタリーブフォーマツ ト 


100 f . • 

110 , - Interleave formatting. 5 inch floppy vers ion 

120 f 

130 WIDTH 80,25:CONS 〇し E 0,25 t 0 ， l:CLS 

140 MAXFLP=&HEF60:MAXMIN=&HEF61:MAXINT=&HEF62 

150 PA=&HFC : PB=&HFD:PC=&HFE:CM=&HFF : RESTORE 相 ACDATA 

160 LOCATE 20,13:PRINT ” Now • send data to sub 一 system •” 

170 A=12:GOSUB 木 SNDCOM 

180 FOR 1=0 TO191 

190 IF (I MOD 16)=0 THEN LOCATE 50,13:PRINT 12-(1 ¥ IS);” ”； 

200 READ A$ 

210 A=VAL (” &H”+AS) :GOSUB 木 SNDPAR 

220 NEXT 
230 CLS 
240 # 

250 木 MAIN 
260 f 

270 PRINT ”- Interleave format. 88 -”： PRINT 

280 DRIVE=PEEK(MAXF し P)+PEEK(MAXMIN)+PEEK(MAXINT) 

290 PRINT ” Format a disk on drive";DRIVE; : INPUT ". Sure (y/n) ” ； DUM$:PRINT 
300 IF DUM$<>”Y” AND DUM$<>”y” THEN GOTO 290 

310 f 

320 ， - Send drive and interleave factor to sub 一 system - 

330 f 

340 A=12: GOSUB 木 SNDCOM : A=&H70:GOSUB 木 SNDPAR •• A=&H3: GOSUB 木 SNDPAR 

350 A=0: GOSUB 木 SNDPAR •• A=17: GOSUB 木 SNDPAR 

360 A=PEEK(MAXINT) 一 1:GOSUB 木 SNDPAR : REM Send « of formatting drive 

370 RESTORE 木 FACTOR 

380 FOR 1=1 TO16 

390 READ A:GOSUB 木 SNDPAR : REM Send interleave factor (» of sector) 

400 NEXT 

410 f 

420 ’ — Set program counter of sub—system to 7000H (Run in t r e 1 e ave program) 

430 1 

440 A=13:GOSUB 木 SNDCOM:A=&H70:GOSUB ホ SNDPAR:A=0:GOSUB 木 SNDPAR 

450 • 

460 ， - Get status flag- If b i t0 is 1,then failed to format - 

470 1 

480 A=6: GOSUB 木 SNDCOM •• GOSUB 木 REVPAR: FLAG=A 

490 IF FLAG=&H 80 THEN PRINT "Complete" : PRINT:END 

500 PRINT ” Disk I/O e r r o r":PRINT:BEEP : BEEP 
510 END 
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900 • 

910 ’ - Table of interleave factor 〔Interleave factor = 13 〕 

920 f 

930 木 FACTOR 

940 DATA 1,14, 11,8,5,2, 15,12,9,6,3,16, 13,10,7, 4 

950 f 
960 • 

970 f 

1000 ボ SNDCOM 
1010 OUT CM,&HF 

1100 ^SNDPAR 

1110 IF (INPCPC) AND 2)=0 THEN 1110 

1120 OUT CM,&HE 

1130 OUT PB,A 

1140 OUT CM, 9 

1150 IF (INP (PC) AND 4)=0 THEN 1150 

1160 OUT CM, 8 

1170 IF (INP(PC) AND 4)=1 THEN 1170 

1180 RETURN 

1200 木 REVPAR 
1210 OUT CM,&HB 

1220 IF (INP (PC) AND 1)=0 THEN 1220 

1230 OUT CM,&HA 

1240 A=INP(PA) 

1250 OUT CM,&HD 

1260 IF (INP (PC) AND 1) = 1 THEN 1260 

1270 OUT CM,&HC 

1280 RETURN 

10000 ホ MACDATA 

10010 DATA 70,00,00,c0 : REM disk ram 7000h - 70BFh 

10020 DATA C3 f 15 t 70 f 01 f 01,02,03, 04, 05 t 06,07, 08,09,0A, 0B,0C 

10030 DATA 0D f 0E f 0F f 10 f 00 f 3A f 03 f 70,4F f CD f 96,01,38 p 0F P 16 p 00 

10040 DATA CD,38 f 70 f 38 f 08 f 14 f CD,1B # 04,FE f 28 f 38 v F3 t 3E f 00,17 

10050 DATA F6,80,32,14,7F,C3,C1,00,CD,AA,01,D8,3E V 05,32 P 0A 

10060 DATA 7F,3E,4D,CD,A4,02,E5,C5,D5,CD,0E,04,E7 e CD p 2F t 04 

10070 DATA 47,CD, 1B,04,57,3E,01,E7,3E, 10,E7,3E,33,E7 t 3E.FF 

10080 DATA E7,21,04,70,5E,FB,76,DB,FA # E6,20,28,2B,7A,D3 S FB 

10090 DATA FB f 76 f DB f FA f E6,20 f 28 f 20 f 78 f D3 f FB f FB f 76,DB f FA 9 E6 

10100 DATA 20 f 28,15 f 7B f D3 f FB f FB f 76 f DB f FA f E6 f 20 f 28,0A f 3E, 01 

10110 DATA D3,FB f 23,7E f 5F # B7 f 20 f CD f FB f 76 f F3 f D1 f Cl f El f CD,63 

10120 DATA 02,D0,3A,0E,7F,ES,02,37,C0,3A,0A,7F,3D,C2,3E,70 
10130 DATA 37, C9,00,00,00,00,00, 00 ， 00,00,00,00,00,00,00,00 
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10-4-4 MS - DOS フォーマツトのディスクのリード•ライト 

このプログラムは MS - DOS フォーマツト （512 バイト/セクタ）のディスクの、セクタ単位 
のリード•ライトを行ないます。 

ユニット番号、シリンダ番号、ヘッド番号、セクタ番号を指定すると、リードなら、デ ー 
夕をメインシステムの E ⑻ 0 H 〜 E 1 FFH に読み込んできます。また、ライトなら、メインシ 
ステムの E 000 H 〜 E 1 FFH のデータを書き込みます。 


実行例 


+++++ Read / Write disk of MS-DOS (Ver 1.25 : Ver 2.0) +++++ 

Read or Write CR/W) ? r 

Drive unit number (0 or 1)?1 

Cylinder number (0 - 39) ? 0 

Head (surface) number C0 or 1)? 0 

Sector number Cl- 9) ?1 

Recieve data (E000H - E1FFH) from sub - system. 

Comp 1e te 


リスト 10-25 MS - DOS フオーマットデ f スクのリード、ライト 


100 REM read and write disk of MS-DOS 

110 CLEAR ,&HDFFF:WIDTH 80,25:CONSOLE 0,25,0,1:CLS 

120 BUFF=&HE000:PA=&HFC : PB=&HFD : PC=&HFE:CM=&HFF:RESTORE 木 MACDATA 

130 LOCATE 20,13 : PRINT "Now p send data to sub — system. ” 

140 A=12:GOSUB 木 SNDCOM 

150 FOR 1=0 TO 515 

160 IF (I MOD 16)=0 THEN LOCATE 50,13:PRINT 32—(1 ¥ IS);" ”； 

170 READ A$ 

180 A=VALr&H"+AS) : GOSUB 木 SNDPAR 

190 NEXT 

200 CLS 

300 ホ MENU 

310 PRINT 

320 PRINT ”+++++ Read / Write disk of MS-DOS (Ver 1.25 : Ver 2. 0) +++++” 
330 PRINT:INPUT ” Read or Write CR/W) ” ； DUM$ 

340 IF DUM$ = ”r” OR DUMS 二 ” R” THEN GOSUB 木 READMS •• GOTO 木 MENU 

350 IF DUM$=”w” OR DUM$=”VT THEN GOSUB ♦WRITEMS:GOTO 木 MENU 

360 GOTO 330 
400 ホ GETINFO 

410 PRINT : INPUT ” Drive unit number (0 or 1) ”； DRIVE 
420 IF DRIVE<0 OR DRIVE>1 THEN 410 

430 PRINT:INPUT ” Cylinder number (0 - 39) ”； CYLINDER 

440 IF CYLINDER<0 OR CYLINDER>39 THEN 430 

450 PRINT : INPUT ” Head (surface) number (0 or 1) ”； HEAD 

460 IF HEAD<0 OR HEAD>1 THEN 450 

470 PRINT:INPUT ” Sector number Cl 一 9) w ;SECTOR 

480 IF SECT0R<1 OR SECTOR>9 THEN 470 

490 RETURN 

500 ^SNDINFO 

510 A=DRIVE:GOSUB 木 SNDPAR 
520 A=CYLINDER:GOSUB 木 SNDPAR 
530 A=HEAD:GOSUB 木 SNDPAR 
540 A=SECTOR:GOSUB 木 SNDPAR 
550 RETURN 
600 ホ READMS 
610 GOSUB 木 GETINFO 
620 A=13:GOSUB 木 SNDCOM 
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630 A=&H70:GOSUB 木 SNDPAR 

640 A=0:GOSUB 本 SNDPAR 

G50 GOSUB ^SNDINFO 

660 GOSUB ^REVPAR:IF A=&H81 THEN PRINT ” Disk I/O error" : END 
670 PRINT:PRINT ” Recieve data (E000H - E1FFH) from sub-system. 
680 X=POS(0) : Y=CSRLIN 
690 FOR 1=0 TO 511 

700 IF (I MOD 16)=0 THEN LOCATE X,Y:PRINT 31-(1 ¥ 16);” 

710 GOSUB ^REVPARrPOKE BUFF+I,A ' 

720 NEXT 

730 LOCATE X, Y:PRINT ” ” 

740 PRINT:PRINT "Complete" : RETURN 

800 ^WRITEMS 


810 GOSUB 木 GETINFO 
820 A=13:GOSUB 木 SNDCOM 

830 A=&H70:GOSUB 水 SNDPAR 

840 A=3:GOSUB 木 SNDPAR 

850 GOSUB 水 SNDINFO 

860 PRINT:PRINT ” Send data (E000H - E1FFH) to sub-sys tem. w - 
870 X=POSC0) : Y=CSRLIN ' 

880 FOR 1=0 TO 511 

890 IF (I MOD 16)=0 THEN LOCATE X p Y:PRINT 3 卜 （I ¥ 16) 「 ” ； 
900 A=PEEK(BUFF+I) : GOSUB 木 SNDPAR # 

910 NEXT 


920 LOCATE X f Y:PRINT ” -: PRINT 

930 GOSUB 木 REVPAR:IF A=&H81 THEN PRINT ” Disk I/O 

940 PRINT "Complete" : RETURN 

1000 木 SNDCOM 

1010 OUT CM,&HF 

1100 木 SNDPAR 

1110 IF (INP(PC) AND 2)=0 THEN 1110 
1120 OUT CM,&HE 

1130 OUT PB,A 

1140 OUT CM, 9 

1150 IF CINP (PC) AND 4)=0 THEN 1150 
1160 OUT CM, 8 

1170 IF (INP (PC) AND 4) = 1 THEN 1170 
1180 RETURN 

1200 木 REVPAR 


1210 OUT CM,&HB 

1220 IF (INP (PC) AND 1)=0 THEN 1220 
1230 OUT CM,&HA 
1240 A=INPCPA) 

1250 OUT CM,&HD 

1260 IF CINP (PC) AND 1) = 1 THEN 1260 
1270 OUT CM,&HC 
1280 RETURN 
10000 ポ MACDATA 


error”：END 


10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 


DATA 70, 00 ， 02,00 : REM disk ram 7000h - 71FFh 

DATA C3,12, 70,03, 33, 70, 00, 40, 00, 00, 00, 00, 00, 00, 00, 00 
DATA 00, 01 ， CD,DS,70 f CD f F4,70,CD,59, 70, DA,53, 70 ， 3E, 80 
DATA DF, 2A, 06, 70, ED, 4B, 08, 70, 7E, DF\ 23, 0B, 79, B0, 20 ， F8 
DATA C3 ， C1,00,CD ， D6,70 ， CD,F4,70,2A,06,70,ED,4B,08,70 
DATA D7, 77, 23, 0B, 79, B0, 20 ， F8, CD, 94, 70, 38, 06, 3E, 80, DF 
DATA C3,C1,00, 3E, 81,DF,C3 ， C1,00, CD, 0F, 71,D8, CD, 9D, 71 
DATA 3E f 09, 32,0A f 7F, 3E f 46,CD f A4 # 02 f CD, 5A, 71 f 2A,06,70 
DATA ED,4B f 08, 70 ， FB f 76,DB,FA,E6,20, 28, 09, DB,FB, 77, 23 
DATA 0B ， 79, B0, 20 ， EF,CD,77,71 ， D0,CD ， B0 ， 71,21,0A, 7F, 35 
DATA 20 ， D3,37,C9,CD,0F,71,D8,CD,9D, 71 ， 3E, 09, 32, 0A, 7F 
DATA 3E f 45,CD,A4, 02,CD,5A f 71 f 2A,06, 70 ， ED,4B,08,70,FB 
DATA 76 f DB,FA,E6 # 20,28,09,7E,D3,FB, 23, 0B f 79 f B0 f 20,EF 
DATA CD,77,71,D0, 3A,0E ， 7F,E6, 02, 37, C0, CD, B0, 71• 21,0A 
DATA 7F, 35, 20,CC, 37, C9 ， D7, 32, 0A,70, 57, D7, 32, 0B, 70, 32 
DATA 0E,70,D7, 32, 0C,70,32,0F,70,07,07,B2, 32, 0D,70,D7 
DATA 32,10,70, C9, 21,DA ， 71 ， 1 6, 00, 3E, 02, 07, 5F, 19,5 E, 23 
DATA 56, 21,0 0, 00, 3A,11,70, 47,19,10, FD ， 22, 08, 70, C9, 3A 
DATA 0A,70,FE,04,3F,D8 f 3A,0B,70,FE,28 f 3F,D8,CD,CE,71 
DATA 3E, 0F, CD, A4, 02,3A,0A f 70,E7,3A,0B,70,E7,FB, 76, F3 
DATA 3E ， 08,E7,CD,9A, 02, E6,DF,21,0A, 70, AE,20,0B, CD f 9A 
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10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 


DATA 02, 21 ， 0B, 70, BE, 20, 05, B7, C9, CD, 9A, 02, 3E, 07, CD, A4 
DATA 02,3A,0A,70,E7,FB,76 f F3 f 37 f C9 f 3A, 0D f 70 f E7 f 3A,0E 
DATA 70, E7, 3A, 0F, 70, E7, 3A,10, 70, E7 # 3E # 02, E7, 3E, 09, E7 
DATA 3E ， IB,E7,3E, FF,E7 f C9 f DB,F8 # FB f 76, F3, 3A,0D, 70 ， 4F 
DATA 21 ， 0D,7F,E5,06, 07, CD,9A,02,77,23,10,F9,El,3E,DF 
DATA A6 f A9, 23, B6, 4F, 23, 3E, 73, A6,B1,C8, 37 f C9 f 3A f 0A f 70 
DATA 21,00,7F f 87, 85,6F f 5E f 23,56,1A,D3,F7 f 32 # 0B,7F f C9 
DATA 3A,0A,70, 21,00, IF. 87,85,6F f 5E t 23, 56,13,3E,F9,BB 
DATA 20 f 03,11,F0, 07,1A, D3, F7, 32, 0B ， 7F t 2B, 73, C9 f 3A, 0B 
DATA 70 ， FE,lE f 3E,0F 9 30 f 02 f 3E,07,D3,F8,C9,00,01,00,02 
DATA 00 ， 04,00,08, 00,10, 00, 20, 42, 42, 2A,17, 5E ， 9C,44,16 
DATA 01, 00 ， 18,1A, 5E, 3E 9 3E f 4A f 0A,2E, A7, D9 f EF,00,00,E7 
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第 11 章プリンタ 


PC -8801 mkII のプリンタインタフェースは、セントロニクスインタフェースに準拠して 
います。これはアメリカのセントロニクス社のプリンタに用いられた8ビットのパラレルイ 
ンタフェースなのですが、現在では多くの機種に採用され、標準的なプリンタインタフェ ー 
スとなってています。 

11-1 画面コピー 

N « 8 - BASIC では、 COPY 文と COPY キーにより、画面上に表示されている文字や図形を 
プリンタに出力する機能をもっています。しかしプリ ン タに出力される文字の フォン トは画 
面とは異なりますし、グラフィックも縦横の比が正しくなく（円が縦長になる）、カラーも無 
視されるなと'、いくつかの欠点をもっています。ここではこれらを改良したプログラムを紹 
介します。 

11-1- 1 テキスト画面のコピー 

次のプログラムはテキスト画面を画面と同じ文字 フォン トでコピーします。もちろん画面 
上で見えない文字（シークレットや COLOR 0 ) はプリントされませんし、リバース文字は反 
転して出力されます。（ただし、20行モ，ドでのリバースでは行間があいてしまいます。） 
この プログラムは PC -8821/8822 用ですが、410行の最初のデータ （ 0 E ) を次のように変 
更すると、他のプリンタにも対応できます。 

06 … PC -8023( C ) 

0 E … PC -8821/8822, NM - 9100/9200， NK -3618 
16 … PC - PR 201 

1 E … NM - 9300 /9400( S ) 

リスト 11-1 


100 * 

110’ text copy 
120 f 

130 DEFINT A_Z 

140 RESTORE 本 MAIM 

150 FOR I=&H7000 TO &H7245 

160 READ DS : f)OKK I, VAL ( ，， &H”+D$) 
170 NEXT 
180 ^ 

190 RESTORE 水 MOVM 

200 FOR I=&HF320 TO &HF338 

210 READ DS : POKE I ， VAL ( ，， &H”+D ゎ 
220 NEXT 

230 DEF USR=&HF320 : I=USR (0) 

240 * 
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250 RESTORE ホ CA しし ER 

260 FOR I=&HF320 TO &HF32F 

270 READ D$ : POKE I, VAL ( ，， &H ，， +D$) 

280 NEXT 
290 1 
300 END 
310 1 

320 木 CALLER 

330 DATA E5 ， DB,70,F5,3E ， 80,D3,70,CD,00,80,F1 ， D3,70,E1,C9 
340 f 

350 水 MOVM 

360 DATA 3A,C2,E6,F5,FG.02,F3,D3, 31 ， 21,00 ， 70, 1 1,00,80,01 
370 DATA 00, 03,ED,B0,F1,D3, 31,FB,C9 
380 f 

390 ホ MAIN 

400 ’ 8000-807F 

410 DATA 0E,00,C3, 15, 80, 00 ， 00,00,00, 00 ， 00, 00 ， 00,00,00,00 
420 DATA 00,00,00,00, 00, D3, EB,CD,69,80,2E,01,CD,C2,35,38 
430 DATA 25, E5, CD, E7,80,El,26,01,E5,CD,9D,42,CD,52,44,CD 
440 DATA 4A,81,El,24,3A,89,EF,BC,30,EE,E5,CD,3F,81,El,2C 
450 DATA 3A,88,EF,BD, 30 ， D6, 06, 4E,3A,00,80,FE,06,28,02,06 
460 DATA 48,3E,IB,CD,2D,82,78,CD,2D ， 82,21,61,80,CD,24,82 
470 DATA C9,0F,IB, 41 ， IB,5D,0D,0A,00,06,0F,3A,89,EF,FE,32 
480 DATA 30, 02, 06, 0E, 78,CD, 2D, 82, 3A, 00, 80,D6, 06, 6F, 0F, 85 
490 f 8080-80FF 

500 DATA 6F,26,00,11,B7,80,19,5E,3A,88,EF,FE,15,30,03,23 
510 DATA 5E,2B,D5,23,23,CD,24,82,Dl,16,00,21,A3,80,19,CD 
520 DATA 24,82,C9,IB,54,31,32,00,IB,54,31,35,00,IB,54,31 
530 DATA 36,00,IB, 54, 32,30, 00 ， 0A,0F,IB, 51,IB,5B,00,00,00 
540 DATA 00, (30, 00, 0A, 0F,IB, 48,IB, 3E, 00, 00, 0(3, 00, 00, 00, 00 
550 DATA 05,IB,48,00,00,00,00,00,00,00,00,0A,0F,IB,51,1A 
560 DATA 41,1A,46,1B ， 3E,00,00,3A,00,80,6F,26,00,11 ， F 9,80 
570 DATA 3A,89,EF,FE,32,30,03,11,19,81,19,CD,24,82,C9,IB 
580 1 8100- 817F 

590 DATA 53, 30, 36, 34,30,00,00,IB,49,30,36,34, 30 ， 00 ， 00,IB 
600 DATA 49, 30,36, 34, 30, 00 ， 00,1B # 4A, 30, 36, 34, 30 ， 00, 00,IB 
610 DATA 53,30,33,32, 30 ， 00,00,IB;49, 30 ， 33, 32, 30 ， 00, 00,IB 
620 DATA 49,30,33, 32, 30,00, 00,IB,4A,30,33,32, 30, 00,00, 3E 
630 DATA 0D,CD,2D,82,3E,OA,CD,2D,82,C9,C5,CD,Cl,81,Cl,CB 
640 DATA 59,20,0C,CB,51,C4,AA,81,CB,41,C4,B6,81,18,06,79 
650 DATA E6 ， E0,CC,B6,81 ， 3A,00,80, 1E,00,D6,06,28 ， 07, 1C ， D6 
660 DATA 11,38,02,IE,03,21,05,80, 16, 08,4E,3E,80,06,08,CB 
670 f 8180-81FF 

680 DATA 09,IF ， DC,A4,81,CB,43,28,14,CB,01,CB,09,IF,DC,A4 
690 DATA 81,CB,4B, 28, 08,CB,01,CB,09,IF,DC,A4,81,10,E0,23 
700 DATA 15,20,D7,C9,CD,2D,82,3E,80,C9,21,05,8O,06,08,7E 
710 DATA 2F,77,23,10,FA,C9,21,05,80,06,08,AF,77, 23, 10,FC 
720 DATA C9,CB ， 59,20,06,CB ， 79, 20,3E,18,04 ， CB,61, 20 ， 38,68 
730 DATA 26,02,29,29,11,0D,80,06,04,7D,D3,E8,7C,D3,E9,D3 
740 DATA EA,00,00,DB,E9,12,13,DB,E8,12,13,D3,EB,23, 10 ， E9 
750 DATA 11,05,80,0E,08,21,0D,80,06,08,AF ， CB,06,IF,23,10 
760 f 8200- 8245 

770 DATA FA,12,13,0D,20,EF,C9,21,05,80, 1E,02,AF,0E,04，CB 
780 DATA 08,IF,IF,0D,20,F9,4F,87,81,0E,04,77,23,0D,20,FB 
790 DATA 1D ， 20,E9,C9,7E,B7,C8,CD,2D,82,23, 18,F7,F5,DB,40 
800 DATA 0F, 38, FB, FI,D3,10, F5, F3, 3A, Cl,E6, E6, FE, D3, 40, F6 
810 DATA 01,D3,40,FB ， F1 ， C9 
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このプログラムを実行してから、 

A 二 & HF 320 : CALL A (または USR 関数） 

と 行なう と、 画面コピーが とれます。 なお、この プログラムは テキスト画面の文字の フォ 
ン トが漢字 ROM の1/4角と同じで あることを 利用して います。 本書の画面コピーもこの 
プログラムを 使って とりま した。 


11-1-2 カラーグラフィック画面コピープログラム 

次はグラフィック画面をコピーするプログラムを作ってみました。これは、カラーグラ 
フィック画面を 27 X 17 cm ( だいたいプリンタ用紙1枚分。 PR 201/101 の場合は 20 X 13 cm ) の 
大きさに引き伸ばしてコピーするもので、色に応じて濃淡がつけてあります。また縦横の比 
もほとんど正確で、プリンタの種類にもよりますが、1: 1.03 ぐらいになります。 

使用法は、このプログラムを実行後、コピーしたいときに、 

A = & HF 320 : CALL A 

または DEF USR = & HF 320 : DUMMY = USR ( 0 ) 

とします。プリンタの種類による変更は前と同じく、410行の最初のデータ （0 E ) を次のよう 
に変えます。 （ PC -8023( C ) は使用できません。） 

0 E … PC -8821/8822, NM - 9100/9200， NK -3618 
16 … PC - PR 201/101 
1 E … NM - 9300 /9400( S ) 

また、410行の二番目のデ-夕 （00) を FF に変更すると、白黒反転して（つまり画面と同じ） 
出力されます。 

リスト 11-2 

100 * 

110’ graphic copy - 

120 ^ 

130 DEFINT A - Z 

140 RESTORE >kMAIM 

150 FOR I=&H 7000 TO &H714E 

160 READ D$ : POKE I,VA し （” &H”+DS) 

170 NEXT 
180 ’ 

190 RESTORE >KMOVM 

200 FOR I=&HF320 TO &HF338 

210 READ DS : POKE I ,VA し （”&H”+DS) 

220 NEXT 

230 DEF USR 二 &HF320 : I=USR(0) 

240 ’ 

250 RESTORE ホ CALLER 

260 FOR I=&HF320 TO &HF32F 

270 READ DS : POKE I, VAL (•• &H”+DS) 

280 NEXT 
290 J 
300 END 
310 ’ 

320 ホ CALLER 

330 DATA E5,DB,70,F5,3E,80,D3,70,CD,00,80,FI,D3,70,El,C9 
340 f 

350 相〇 VM 

360 DATA 3A,C2,E6,F5,F6, 02,F3,D3, 31,21,00, 70,11,00, 80,01 
370 DATA 00,03,ED,B0,FI,D3,31,FB,C9 
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380 f 

390 ホ MAIN 

400 ’ 8000-807F 

410 DATA 0E,00,C3,18,80,00,00,00,00,00,00,00,00,00,00,00 
420 DATA 00,20,21,51,69,9E,DE,FF,DB,70,F5,3E,80,D3,70,21 
430 DATA 23,81,11,00,83,01,0A,00,ED,B0,CD,70,60,DD,21,30 
440 DATA FE,11,50, 00, CD, C2, 35, 38, 26, D5, CD, Bl, 80, 06, C8, C5 
450 DATA CD,C9,80,CD,F1,80,CD,07,81,11,B0,FF,DD,19,C1,10 
460 DATA EE,CD,BF,80,11,81,3E,DD,19,D1,IB,7A,B3,20,D5,FI 
470 DATA D3,70,21,69,80,CD,2D,81,C9,IB,41,IB,5D,0D,0A,00 
480 DATA 3A,00,80,D6,0E,6F,0F,85,6F,26,00,11,8D,80,19,CD 
490 f 8080-80FF 

500 DATA 2D,81,3E,IB,CD,36,81,3E,48,CD,36,81,C9,IB,54,31 
510 DATA 36,IB,3E,00,00,00,00,00, 00,IB,54,31,32,00,00,00 
520 DATA 00, 00 ， 00, 00,00,IB,3E,1A,41,1A,46,IB, 54, 31, 36, 00 
530 DATA 00,21,B8,80,CD,2D,81,C9,IB,49,30,38,30,30,00,21 
540 DATA C6,80 ， CD,2D,81,C9,0D,0A,00,0E,5E,16,03,CD, 00， 83 
550 DATA 21,08, 80 ， 06,08,07,CB, 16, 23,10,FA,0D,15,20,EE,21 
560 DATA 08 f 80 f 3A f 01,80 f 4F f 06,08 f 7E f A9 f E6,07,77,23,10 f F8 
570 DATA C9, 01,08, 80,11,10,80,3E,08,08, 0A,6F,26, 00,19,7E 
580 f 8100-814E 

590 DATA 02,03,08,3D,20,F3,C9,0E,04,21,08,80,IE,02,06,04 
600 DATA CB,06,1F ， CB,06,IF,23,10,F7 ， CD,36,81,ID,20,EF,0D 
610 DATA 20,E7,C9,F3,ED,79,DD,7E,00,D3,5F,FB,C9,7E,B7,C8 
620 DATA CD,36,81,23,18,F7,F5,DB,40,0F,38,FB,FI,D3,10,F5 
630 DATA F 3,3 A,C1,E6,E6,FE,D3,40,FS,01,D3,40,FB,F1 ， C9 

420行の初めの 8 個のデータは、画面上の各色1ドットに対して、プリンタに出力するドッ 
トパターンです。順に COLOR 0 -COLOR 7に対応しています。ひとつのデータ（パター 
ン）は1バイトでできていて、このような構成になっています。 


• 数字はビット番号をあらわします。 

• 各マスはプリンタの1ドット 
• 全体で画面の1ドット 
画面上の1ドットに対してプリンタは8ドット （ 2 X 4 ) 打ち出しているわけで、これに 
よって濃淡をつけています。打ちたいドットを1にして、ビットを順に並べ、16進数に変換 
し、420行の対応する色のデータを書き変えれば、好きなパターンで出力できます。 

[コピー例] 

ここで紹介したプログラムで出力した画面コピーの例をのせておきます。 
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11-2 プリント先を画面とプリンタで切り換える 


PRINT 文によって画面に出力するプログラムで、その出力先をプリンタに変更したいと 
き、プログラムリストをながめつつ、いちいち PRINT 文を LPRINT 文に直して行くという 
ようなことは能率的ではありません。このようなときには第4章で述べたように” SCRN : 
と” LPT 1 :，，でファイルをオープンして出力するとよいのですが、ここでは、画面とプリ 
ンタで出力を切り換えることに的を絞って、もう少しいろいろと考えていきます。 

11-2-1 CRT とプリンタへの出力をファイルとして扱う 

まず、第4章で紹介した方法、っまり画面やプリンタをファイルとして扱う方法の実際の 
例をみてみます。 

( 1 ) ファイルディスクリプタを変える方法 

画面とプリンタのどちらに出力するかによって、オープンするときのファイルデイスクリ 
プタを変えます。 

CRT へ出力する場合 

OPEN"SCRN : ” FOR OUTPUT AS # 1 
プリンタへ出力する場合 
OPEN " LPT : ” FOR OUTPUT AS # 1 

処理が終わったら、忘れないように CLOSE 文を実行します。 

この方法でメモリダンププログラムを作ってみましょう。 

リスト1卜3 


100 * 

110 f MEMORY DUMP (I) 

120 ’ 

130 WIDTH 80 f 25 
140 DEF1XT A-Z 
150 • 

160 INPUT "START ADRS ? &H，， ， SAS 
170 INPUT M END ADRS ? &H M f EAS 
180 f 

190 SA=VA し （ . ， &H”+SAS) AND &HFFF0 
200 EA=VAL( M &H M +EAS) 

210 ’ 

22¢) INPUT "PRINTER (p) or CRT (c) ”； OTS 

230 IF. OTS = ” p ，， THEN FS = ”LPT1:，，ELSE IF OT$ = ”c” THEX F$ = ” SCRN: ELSE 220 
240 1 

250 OPEN FS FOR OUTPUT AS »1 
260 f 

270 FOR I=SA TO EA STEP 16 

280 PRINT tU • RIGHTS (，• 000，， +HEXS U) , 4) •’：’•； 

290 FOR J=0 TO15 

300 PRINT ttl, RIGHTS (”0”+HEXS (PEEK (I+J) )• 2) •••’ ； 

310 NEXT J 
320 PRINT n 1 
330 NEXT I 
340 f 

350 C し〇 SE 
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OUTPUT AS «1 
OUTF)U 丁 AS ff2 


WIDTH 80,25 
DEFT NT A - Z 

9 

OPEN ，，し PT1 :，， 
OPEN ” SCRM ゾ 


INPUT ” START ADRS ? &H M ,SAS 
INPUT ” END ADRS ? &H”，EAS 

SA=VA し（ ” &H” +SA$) AND &HFFF0 
EA=VAL(”&H”+EA$) 

INPUT ” PRINTER (p) or CRT (c) ” ； OT$ 

IF 〇 T$=”p” THEN F=1 ELSE IF 〇 TS=”c” THEN F=2 ELSE 250 
> 

FOR 1=SA TO EA STEP 16 
PRIM ffF, RIGHTS (” 000”+H£X$ (I) , 4) ” : 

FOR J=0 TO15 

PRIM 丁 tfF,RIGHTS ("0”+HEXS(PEEK(I+J)),2)” 

NEXT J 

PRINT tfF,”” 

NEXT I 
» 

CLOSE 


MEMORY DUMP (II) 


320 

330 

340 

350 

360 


( 2 ) ファイル番号を変える 

別の方法として、 CRT とプリンタに2つのファイルをオープンしておいて、ファイル番 
号を変数として使うことも考えられます。 

OPEN ” SCRN : ” FOR OUTPUT AS # 1 
OPEN ” LPT : ” FOR OUTPUT AS # 2 

としておいて、 CRT へ出力する場合 

PRINT # 1, .... 

プリンタへ出力する場合 
PRINT # 2, .... 

とします。 

さきほどのプログラムを書きなおすとこうなります。 

リスト 11-4 


11-2-2 PRINT to LPRINT コマン ドを作る 

新しく作るプログラムに対しては、上のテクニックを使うとよいことがわかりました。そ 
れでは、今までに作っていた PRINT 文を使ったプログラムはどうしますか。何とかしてみ 
たいところです。 

そこで、次の実験をしてみましょう。 

リスト 11-5 

100 POKE &HE64C, 1: PRINT ABC” 

上のプログラムを実行すると、文字が画面ではなくプリンタに出力されます。 

POKE 文を実行しただけですが、この E 64 CH 番地というのはなんでしょう。実はこれは、 


R R 
〇 〇 
F F 


0000000000000000000000 

0123456789012345678901 

1111111111222222222233 
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1 文字出力をどこに対して行なうかを表わすワークエリアの番地なのです。ここの内容が〇で 
あれば画面、そうでなければプリンタに出力されます。 

ここで、「なあ一んだ、それじゃプリンタに出したいときは POKE & HE 64 C ， 1をやる 
だけでいいんだな。」と思ってしまってはいけないのです。次のプログラムを実行してみて 
下さい。 

リスト ”_6 

100 POKE &HE64C, 1: PRINT ABC” 

110 PRINT ” DEF” 

110行では画面に出力されてますね。これは、 E 64 CH というワークエリアには、1度 
PRINT 文が実行された後は、0が書き込まれてしまうためです。 

そこで、次のプログラムを実行して見て下さい。 

リスト 11-7 


100 ’ 

110 ’ PRINT to LPRIXT 
120 ’ 

130 FOR I=&HF260 TO &HF286 

140 READ DS : POKli I , VAL (• ， &H”+DS) 

150 NEXT 1 
180 , 

170 CH=&HEEA7:POKE CH,&HC3:POKE CH+1,&HB0 : POKE CH+2,&HF2 
180 PH=&HEDCF:POKE PH,&HC3:POKE PH+1,&H7A:POKE PH+2,&HF2 
190 ’ 

200 DATA FE,95,28,0C,FE ， EE,C 2,93,03,07, C2,93,03,AF, 18，06 
210 DATA D7,C2, 93, 03, 3E, 01 ， 32, 86,F2,C9,F5, 3A, 86,F2,B7,28 

220 DATA 03 f 32,4C,EG,FI,C9, 00 


H も変化はありませんが、あなたの Nf BASIC には POLL という便利なコマンドが追加 
されたわけです。 

試しに次のようにやってみて下さい。 

リスト 11-8 

poll on 
Ok 

print ” ABCDEF” 

Ok 

PRINT 文でプリンタへ文字が出力されましたね。うまく動かなかったら上のプログラム 
をもう一度確かめて実行して下さい。 

次にもとに戻します。 

リスト 11-9 

poll off 
Ok 

print ” ABCDEF” 

ABCDEF 

Ok 

今度は、画面に出力されますね。 

さあ準備は整いました。前のプログラムを、このコマンドを使って書き直してみましよう。 
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180 

190 

200 


KI$=CHRS (27) +. ， K” ： KOS=CHRS (27) + • ，卜 i 

夤 

し PRINT K1S; 

FOR 1=1 TO 8 
READ HD,LD 

LPRIKT CHRS(HD) ;CHRS (LD); 

NEXT 

LPRINT KOS 

t 

DATA &H46,&H7C,&H4B,&H5C,&H45,&H45,&M35,&H24 
DATA &H33,&H74,&H3C,&H30,&H32,&H71,&H3C,&H52 


INPUT 


START ADRS ? &『 ，SAS 

ADRS ? &H” ， E/U 


INPUT "END 


SA=VAL (” &H” +SAS) AND &HFFF0 

EA=VA し（ ” &H”+EAS) 


INPUT "PRINTER (p) or CRT (c) ’，；OTS 

IF OT$=”p ，， THE\* POLL ON ： ELSE Ir' 0 丁れ， 

» 

FOR I=SA TO EA STEP 16 

PRINT RIGHTS (” 000 v +HEX$(I) ， 4) ” : ”； 

FOR J=0 TO15 

PRINT RIGHTS (” 0”+HE£XS (PEEK (I+J) ) , 2) 
NEXT J 
PRINT 
N r EXT I 


THEN POLL OFF ELSE 220 


11-3 漢字プリンタ 

11-3-1 使って便利な漢字——キャラクタ対応表 

漢字の出力には、漢字 JIS コード表を用います。これは、1つの漢字に対して2バイトの 
16進数を与えるものです。 

この JIS コード表を使って漢字列を印字するプログラムは、次のようになります。 

リスト 11-11 


リスト 11-10 

100 * 

110 ’ MEMORY DUMP (III) 
120 ^ 

130 WIDTH 80, 25 
140 DEFINT A - Z 

150 f 


日本電気株式会社 

ところがこれは、次のようにしてもよいわけです。 

100 KI$=CHR$ (27)+”K” : KO$=CHR$ (27 ) +.， 
110 f 

120 LPRINT KIS; ” F!K¥EE5S3t<02q<R ”； KOS 
130 * 


0 0 0 0 0 0 
0 12 3 4 5 


00 

67 


0 0 
6 7 


0 0 0 
8 9 0 
1i 1i 


0 

IX 


0000000000 

2345678901 

22222222233 


日本電気株式会社 
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これは、漢字 JIS コードをキャラクタ2文字に置き換えて、直接 LPRINT 文中に入れたも 
のですが、こうするとプログラムも短くなるし、データ文として持ったときも1/5になり 
ます。ただ難点としては、漢字 JIS コードからキャラクタへ変換する手間が必要です。 

そこで、この手間を省くために、漢字からキャラクタを得る一覧表を紹介します。 

この表は次のようなものです。 

リスト 11-13 


〔 7 ) - 

亜=0!唖姥=0#阿=0$哀=0%愛=0&挨=0，姶=0(逢 =0) 葵 =0* 
茜=0+穐 = 0,悪=0- 握 =0. 渥=0/旭=00葦=01 芎 =02鰌=03梓=04 
圧 =05 斡 =06扱=07宛=08 姐 =09 虻 =0: 飴 =0; 絢 =0く 綾 =0= 鲇 =0〉 
或=0?粟 =0® 袷 =0 A 安 =0 B 庵 =0 C 按 =0 D 暗 =0 E 案 =0 F 闍 =0 G 鞍 =0 H 
杏=01 

C イ ) - 

以 =0 j 伊=抓位 =0 L 依 =0 M 偉 =0 N 囲=00夷 =0 P 姿 =0 Q 威尉 =0 S 
惟 =0 T 意 =0 U 慰 =0 V 易 =0 W 椅 =0 X 為 =0 Y 畏 =0 Z 異=0〔移=0¥維=0〕 
緯 =0八胃=0一 萎=0二衣 =0 a 謂 =0 b 違 =0 c 遗 =0 d 医 =0 e 井 =0 f 亥 =0 g 

域 =0 h 育 =0 i 郁 =0 j 磯 =0 k —=01荖 =0 m 溢 =0 n 逸=0〇稲 =0 p 茨 =0 q 

芊 =0 r 簾 =0 s 允 =0 t 印 =0 u 咽 =0 v 員 =0 w 因 =0 x 姻 =0 y 引 =0 z 飲 =0 { 
淫=0: 胤 =0} 蔭=0〜院=1!陰=1「隠 =ltf 韻 =1$吋=1% 

C ^ ) - 

右=1&宇=1， 烏 =1( 羽 =1) 迂 =1* 雨 =1+ 卯 =1,铕=1-窺 =1. 丑 =1/ 
碓=10 日 =11 «=12嘘=13唄=14欝=15蔚=16饅=17姥=18厩=19 
浦=1: 瓜 =1; 閏 =1< 噂=1=云 二 1> 運=1?雲 =1® 


荏 =1 A 餌 =1B 数 =1C 営 =1D 嬰 =1E 影 =1F 映 =1G 曳 =1H 栄 =11 永 =1J 
泳 =1K 洩 =1L 瑛 =1M 盈 =1N 穎 =10 頴 =1P 英 =1Q 衛 =1R 詠 =1S 鋭 =1T 
液 =1U 疫 =1V 益 =1W 駅 =1X 悦 =1Y 謁 =1Z 越 =1 〔閲 =1¥ 桓 =1 〕厭 =1 八 
円 =1— 園 =1= 堰 =la 奄 =lb 宴 =lc 延 =ld 怨 =le 掩 =lf 援 =lg 沿 =lh 
演 =li 炎 =lj 焰 =lk 煙 =li 燕 =lm 猿 =ln 縁 =1 〇艶 =lp 苑 =lq 菌 =lr 
遠 =ls 鉛 =lt 駕 =lu 塩 =lv 


例えば、 ，愛 ’ という漢字に対しては、’0&’という文字列が得られます。複数の漢字にっい 
ては、上の例のように、文字列をつないで LPRINT してやればよいわけです。 

この表にも少し欠点があります。 JIS コード（外字を除く全角文字）では1バイトに現われ 
る値は 21 H 〜 7 EH です。ところが 22 H (”） は文字列の中に書くことはできませんし、 60 H は見 
た目にはスペースと区別がつきません。この問題は PC -8822 の場合はちょっとしたテクニッ 
クで解決できます。この2つの文字はその値に 80 H を足した値（ビット7を1にする）に対応 
する文字を出すとうまくいきます。っまり 22 H のときは A 2 H に対応する文字（「）をプリント 
します。 60 H のときは= ( グラス(ックの= ) です。入力するときにこれらの文字を使うと、文 
字列の中に入れることができます。たとえば「劇」という文字を印字するときには、（プリ 
ンタが漢字モードになっているとして） 

LPRINT ” 7 二，’ 

とします。 

しかし、 PC - PR 201/101 の場合はこの方法はうまくいきません。 CHR $ を使うしかなさそ 
うです。 （60 H はファンクションキーに CHR $(& h 60) を定義するという方法もあります。） 

この表の完全なものは付録にありますが、自分なりにアレンジした表を作りたいという人 
のために、この表を出力するプログラムをあげておきます。 
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リスト 11-14 非漢字——キャラクタ 

100 ’ 

110 ’ カンシ“フ 。リン タ キコ“ウキャラクタヒョウ 

120 ’ 

130 DEFINT A - Z 
140 ’ 

150 し PRINT CHR$(27)”H ”； 

160 LC=0 

170 LPRINT ” 〔キコ〜ウ〕 ” STRINGS(52, ” 一”）：し PRINT SPC(6) ; 

180 FOR I=&H 2121 TO &H2770 
190 CH=I¥256 : CL=I MOD 256 

200 IF C し =&H7F THEN 1= (CH+1) 水 256+&H21 : GOTO 190 
210 LPRINT CHR$(27) ” K”CHR$(CH)CHRS(CL); 

220 IF CH=&H 22 THEN CH=&HA2 
230 LPRINT CHR$(27)”H= ” CHR$(CH); 

240 IF CL=&H60 THEN CL=&HE0 
250 IF CL=&H22 THEN CL=&HA2 
260 し PRINT CHR$(CL)” ”； 

270 LC=LC+1 

280 IF し C=10 THEN LC=0:LPRINT : LPRINT SPC (6); 

290 NEXT 

リスト n - i 5 漢字" 一- ►キャラクタ 

1000 f 

1010 ’ カンシ ” フ°リンタ カンシ〜キャラクタヒョウ 

1020 ， 

1030 DEFINT A - Z 
1040 J 

1050 LPRINT CHRS(27) ”H” ； 

1060 CCE=&H 3021 

1070 FOR HR=ASC (” ア ”） TO ASC (” ワ”） 

1080 CCS=CCE 
1090 READ CCE 

1100 LPRINT ”〔 ” CHR$(HR)” 〕 ” STR ING$ (54 , ” 一，，）： LPRI NT SPC (6); 

1110 LC=0 

1120 FOR I=CCS TO CCE — 1 
1130 CH=I¥256 : C し =1 MOD 256 

1140 IF CL=&H7F THEN 1= (CH+1)*256+&H21•• GOTO 1130 
1150 し PRINT CHR$(27) ” K”CHR$(CH)CHRS(C し）； 

1160 LPRINT CHRS (27) ，， H= ， ’CHR$ (CH); 

1170 IF CL=&H60 THEN CL=&HE0 
1 180 IF C し 二 &H22 THEN CL=&HA2 
1190 し PR I NT CHR$(C し） 1 ，”； 

1200 LC=LC+1 

1210 IF し C=10 THEN LC=0 : LPRINT : LPRINT SPC(6); 

1220 NEXT I 
1230 LPRINT 
1240 NEXT 
1250 f 

1260 DATA &H304a,&H3126,&H3141,&H3177 
1270 DATA &H323c,&H346b,&H3665,&H3735,&H3843 
1280 DATA &H3a33,&H3b45,&H3f5a,&H4024,&H4139 
1290 DATA &H423e,&H434d,&H4445,&H4462,&H4546 
1300 DATA &H4660,&H4673,&H4728,&H4729,&H4735 
1310 DATA &H4743,&H485b,&H4954,&H4a3a,&H4a5d 
1320 DATA &H4b60 f &H4c23,&H4c33,&H4c3d,&H4c4e 
1330 DATA &H4c69,&H4c7b,&H4d3d 
1340 DATA &H4d65,&H4d78,&H4e5c,&H4e61,&H4f24 
1350 DATA &H4f41,&H4f54 
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11-3-2 外字データ作成プログラム 

漢字プリンタには外字機能があります。ここでは、その外字データを作成する簡単なエディ 
夕と、ディスクファイル上の外字データを漢字プリンタにロー ドするローダーを紹介します。 

まず次のプログラムで、外字データファイルを初期化します。プリンタが24ピンの場合は 
130行の SIZE = 16 を SIZE = 24 に変更してから実行してください。 

ドライブ1のデイスタに GAIJI .16 または GAIJI .24 というファイル名で外字データファイ 
ルが作られます。 

〇 外字デ-タファイル初期化プログラム 

リスト 11-16 

100 * 

110 ， カン シ、、 フ 。リン タカ “ イシ “ テ “ 一タ ファイルイニシャライス “ 

120 f 

130 SIZE =16 : ，ココヲ 16 マタハ 24 ニカエテクタ”サイ 

140 GOSUB ホ〇 PEN. FILE 
150 ’ 

160 CONSOLE 0,25,1,0 : WIDTH 40,25 
170 LOCATE 3，10 

180 PRINT ” カン シ、、 フ 。リンタ カ、、 イシ、、 テ “ 一タ ファイルイニシャライス “” 

190 1 

200 LSET DTS=STRINGS (72,0) 

210 FOR 1 = 64 TO 1 STEP 一 1 

220 PUT ttl,I 
230 NKXT I 
240 * 

250 END 
260 1 

270 ホ〇 PEN.FILE 

280 OPEN ” GAIJI. ”+STR$ (SIZE) AS «1 
290 FIELD 72 AS DT$ 

300 RETURN 


この後、次のプログラムにより、外字コード 7620 H 〜 765 FH の64文字 （ PC - PR 201/101 の 
場合は 7620 H -7657 H の56文字だけを使用してください）の外字の エディ ットができます。 こ 
のプログラムも、24ピンプリンタの場合は SIZE = 24 に変更してください。 

最初に外字コードを入力すると、その外字のパターンが画面上に現われます。「フォント 
を作成してください」というメッセージがでたら、テンキーとスペースキーで文字フォント 
を作成して下さい。キー操作は、次のとおりです。 


図 11-3- A キー操作 


力ーソールの移動 点の 0 N /0 FF 


5 ".ON 

<— [4 [6 ―> 

I ハ I 0 •••OFF 



エディツ ト終了 エディツ ト取り消し 


E 


Q 
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〇エディタ.プログラム 

リスト 11-17 


1000 * 

1010 ， カンシ〜フ•リンタ カ、、 ィシ.、 テ••一タファイルサクセイ 

1020 ’ 

1030 SCREEN 0,3 : R0 しし 197 
1040 DEFINT A—Z 
1050 • 

1060 SIZE =16 : • ココヲ 16 マタハ 24 ニシテクタ、•づイ 

1070 GOSUB 木 OPEN.FILE 
1080 f 

1090 YBYTE = SIZE¥8 
1100 MAXBYTE = SIZE ホ YBYTE - 1 
1110’ 

1120 CONSOLE "0,1 : WIDTH 40,25 
1130 DIM DT (MAXBYTE) 

1140 f 
1 150 CLS 

1160 LOCATE 0,10 : PRINT SPACES (40) 

1170 LOCATE 0,10 : INPUT ，，力 - イシ ” コート _ ( &H7620 — &H7S5F ) ” ； K$ 

1180 IF LEFTS (K$, 1)=，’&” THEN G. CODE = VAL(K$) ELSE G. CODE = VA し（ ” &H”+K$) 

1190 IF G.CODE<&H 7620 OR G.C0DE>&H765F THEN 1160 
1200 f 

1210 DT=G. CODE-&H761F 
1220 f 

1230 CLS : COLOR 4 

1240 PRINT ” i - 1” 

1250 PRINT I 1 ，， 

1260 PRINT I I” 

1270 PRINT ” 1 - »，， 

1280 CO し OR 7 

1290 KJ$= ，， 03z; ! !n:. @，， : PX=48 : PY=8 : GOSUB *PUT. KANJ I : SCREEN ,0 
1300 CO し OR 4 : LOCATE 0,7 : PRINT ” CODE : &H” ； HEX$(G. CODE) 

1310 ’PRINT 

1320 LOCATE 15,0 : COLOR 5 

1330 IF SIZE =16 THEN PRINT ，， 012 3456789 ABCDEF” 

1340 IF SIZE = 24 THEN PRINT "012345678901234567890123 M 
1350 FOR 1=0 TO SIZE - 1 

1360 LOCATE 13,1 + 1 : CO し OR 5 : PRINT STR$ (I MOD 10); 

1370 CO し OR 7 : PRINT STRINGS (SIZE, M ; 

1380 NEXT 

1390 GOSUB ホ P. DATA 
1400 * 

1410 KJ$="U%)%s%H%r3n: . : PX=0 : PY=168 : GOSUB *PUT. KANJ I 

1420 CX=15 : CY=1 
1430 1 

1440 LOCATE CX f CY 
1450 KY$ = INPUTS Cl) 

1460 ON INSTR (” 246850 EeQq ，，， KY$) 

GOSUB 水 SP, 水 DW, 水し F, 水 RT, 木 UP, 水 ST, 木 RS, 水 EN, 木 EN, 木 QU, *QU 

1470 GOTO 1440 
1480 ’ 

1490 木 DW : IF CY<SIZE THEN CY=CY+1 
1500 RETURN 

1510 ホし F : IF CX>15 THEN CX=CX — 1 
1520 RETURN 

1530 ホ RT : IF CX<SIZE+14 THEN CX=CX+1 
1540 RETURN 

1550 ホ UP : IF CY>1 THEN C:Y=CY - 1 

1560 RETURN 

1570 ホ ST : PRINT 1 す； 

1580 RETURN 

1590 水 RS : PRINT ” •”； 

1600 RETURN 
1610 *SP 

1620 IF PEEK (&HF3C8+120>KCY + 2^CX) 二 ASC( ， • 參 ”） THEN PRINT ” •”； ELSE PRINT ，’•”； 
1630 RETURN 
1640 ホ EN 
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1650 LINE (i)X, PY) — STEP (し EN (KJS)*16,16) , 0, BF 

1660 3$ : PX=0 : PY=168 : GOSUB *PUT. KANJI 

1670 LOCATE 0，23 : PR し NT ” （ y/n ):”； : SS=INPUTS (1) 

1680 IF S$<>"y n AND S$<>”n” THEN 1670 
1690 LINE (PX,PY) 一 STEP (し EN (KJ$)^16 f 16) , 0,BF 
1700 LOCATE 0,23 : PRINT SPACES (14); 

1710 IP* S$ = ”n” THEN RETURN 
1720 f 

1 730 GOSUB 水 G. DATA 

1740 KJS = "LJNSz; r$n:. @7$ A S9$+S ! ! %, : PX = 0 : PY=1 G8 : GOSUB 水 PUT. KANJ l 
1750 LOCATE 0,23 : PRINT ” （ y/n ):”； : S$=I NPIJTS ( !) 

1760 IF S$<>”y” AND THEN 1750 

1770 SCREEN ,3 : ROLL 197 : SCREEN ,0 
1780 IF S$ 二 ” y” THEN 1 150 
1790 木 QU 

1800 C し S : SCREEN , 3 : R 〇しし 197 : SCREEN ,0 
1810 END 
1820 f 

1830 木 OPEN. FILE 

1840 OPEN ” GAIJ I •，，十 STR$ (SIZE) AS »1 
1850 FIELD 林 1,24 木 3 AS DT$ 

1860 RETURN 
1870 f 

1880 >KF. DATA 

1890 KJ$= ,, 7$P$ i$/$>K$TBA$/$@$5$$$ n : PX=0 : PY=168 : GOSUB 木 PUT. KANJ I 

1900 GET «1 f DT 

1910 FOR 1=0 TO MAXBYl 匕 

1920 DT(I)=ASC(MID$(DT$, 1 + 1, 1)) 

1930 NEXT 1 
1940 FOR 1=0 TO SIZE-1 
1950 FOR J=0 TO YBYTE - 1 
1980 CN=I ホ YBYTE+J 

1970 FOR K=0 TO 7 

1980 IF DT(CN) MOD 2=1 THEN LOCATE 15+I,1+J 水 8+K : PRINT ，，參”； 

1990 DT(CN)=DT(CN) ¥2 

2000 NEXT 

2010 NEXT 
2020 NEXT 

2030 LINE (PX,PY)—STEP(LEN(KJ$)*16,16),0,BF 
2040 RETURN 
2050 • 

2060 ポ G. DATA 

2070 KJ$ = ”7SP$i$/$*$TBA$/$@$5 $$$”： PX=0 : PY=168 : GOSUB 水 PUT. KANJI 

2080 FOR 1 = 0 TO SIZE — 1 

2090 IP = I>K2 + &HF3C8 + 15*2 + 120 

2100 FOR J=0 TO YBYTE-1 

2110 JP = (J ホ 8) ホ 120 + IP 

2120 CN=1 ホ YBYTE+J 

2130 AP=1 

2140 FOR K=0 TO 7 

2150 IF PEEKCJP+K ホ 120)=ASC ( ，，奉 ，，） THEN DT (CN)=DT (CN)+AP 

2160 AP=AP+AF 

2170 NEXT 

2180 NEXT 

2190 NEXT 
2200 AP$ = ，ぃ， 

2210 FOR 1=0 TO MAXBYTE 
2220 AP$=APS+CHR$(DT(I)) 

2230 NEXT I 

224 M LSh：T 1)*1 $=APS 

225M PUT it 1 f DT 

2260 LINE (PX,PY)-STEP (LEN (KJS)*16,16) f 0 f BF 
2270 RETURN 
2280 f 

2290 ホ PUT. KANJI 

2300 FOR KJ = 0 TO LEN(KJ$) — 1 STEP 2 

2310 PUT (PX+KJ 木 8,PY),KANJI (CVI (MIDS(KJS,KJ+1,2))),PSET 
2320 NEXT 
2330 RETURN 
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作成された外字データファイルは、次のプログラムを使って漢字プリンタにロー ドできま 
す。同じく 24ピンプリンタでは SIZE = 24 に変更してください。また PC - PR 201/101 では 
250行の FOR 1 =1 TO 64を FOR 1=1 TO 56に変更してください。 

リスト11 -18 外字デ-タロ-ダ-.プログラム 

100 ^ 

110 ， カンシ “ フ。リンタカ “ イシ “ テ“一タ ロート'、 

120 ’ 

130 DEFINT A - Z 
140 f 

150 SIZE =16 :’ ココヲ 16 マタハ 24 ニカエテクタ“サイ 

160 1 

170 GOSUB >KOPEN. FILE 
180 WIDTH LPRINT 255 
190 f 

200 CONSOLE ,,1,0 : WIDTH 40,25 
210 ’ 

220 LOCATE 3,10 

230 PRINT ” カンシ “ フ•リン タ カ、•イシ、、テ、、 一タロート “ （”； SIZE; ” ヒ • ン ） ” 

240 ^ 

250 FOR 1=1 TO 64 
260 GOSUB DATA 
270 NEXT I 
280 ’ 

290 END 
300 f 

310 WPEN. FILE 

320 OPEN "GAIJI. M +STR$(SIZE) AS tfl 
330 FIELD «1,72 AS DT$ 

340 RETURN 
350 f 

360 ホ P.DATA 
370 GET tf 1,I 
380 LOCATE 9,13 

390 PRINT ” Loading … &H” ； HEX$ (&H761F+1) 

400 LPRINT CHRS (27); ’ 

410 IF SIZE=16 THEN LPRINT ” 木 ”； ELSE し PRINT ” +”； 

420 LPRINT CHR$ C&H76) ;CHR$ C&H1F+I); 

430 LPRINT LEFTS (DT$,SIZE 木 SIZE¥8); 

440 し PRINT CHR$C4); 

450 RETURN 


外字データファイルは、” GAIJI .16” または” GAIJI .24” で統一されていますが、必要 
があれば、 * OPEN . FILE サブルーチンを変えて下さい。 
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11-4 WIDTH LPRINT と TAB コード 

N 88 - BASIC では、プリンタの印字桁数を制御するために 、 WIDTH LPRINT 文があり 
ます。ここでは 、 WIDTH LPRINT 文の、マニュアルにない使い方を見てみましよう。 


11-4-1 WIDTH LPRINT の値と出力 

WIDTH LPRINT の値と、その出力について実際に見てみましよう。（マニュアルとは 
違った動作をするところがありますので注意が必要です。） 

動作のチェックのために次のプログラムを用います。（プリンタは、80桁のものを使用） 

リスト 11-19 

100 INPUT LW 
110 WIDTH し PRINT し W 
120 FOR 1=1 TO 300 
130 し PRINT ” ホ”； 

140 NEXT I 


① LW (WIDTH LPRINT の値）がプリンタの幅と同じかまたは小さい場合 （LW = 60) 

リスト 11-20 


SV MX Six six Nix six Nj / six six Si / st ^ sl ^ sly n|x v !/ vf > vi > vL ^ v »> vl ^ vf > v |/ vt > si / s!x \ L / six sL ^ six 

✓p% ^in ✓js ✓jn ✓jn ✓jx xjs xjs xjs y^% 


sA^ sA^ 0> vl ^ vf ^ vf ^ vl ^ vl > vl ^ 、レ sA^ vf > vlv vlv vl ^ %A^ \|x Klx vfv Nl ^ Nix Ox vl ^ Sl^ sl ^ \|^ si ^ vi ^ vf ^ vfx vf ^ vlv v|v vf ^ 

^ys ^T s 


vj ^ vL ^ ^ 2 ^ vf > Kty vL ^ vL ^ vL ^ vjx vjy vL ^ vL / vt > % J > vl ^ vtx 必 v |^ vj ^ vL ^ vL ^ v |> >Jy vl > vl ^ v |^ vL ^ vf ^ vj > sfv vfy vly 企 My nV sty nV 义 


木氺木氺氺糸水本*木木ネ木木ネ本ネネ氺氺氺氺氺本水木氺氺水水氷木本氺本木本本氺氺氺氺氺本來本氺氷水木氺氺氺本氺水水水木冰 
氺本冰本本木冰冰冰木本本本本木冰冰木ネ水木本氺冰冰冰冰本冰氺木冰木冰本冰本本木氺木本本冰冰本本本水氺氺氺氺冰冰本木水水木 


この場合は、60文字印字したところで改行しています。 
② LW がプリンタの幅より大きい場合 （LW = 100) 

リスト 11-21 


vV nV 、レ、ン vV 、ン、ン ☆ 企 *ン、ン \1^ ^ i / 々少 、レ Nt ^ % 1^ 义 企 、ン 、v NV 企企企、レ % 1/ 少企 SV *2^ % 2^ slf 企企々 ^ % jL ^ \V 义 シ sj / 

♦个 ✓js ^fs yf % 4、个 > T * ， T ^ ヂ T 、 # T * - T ' 4 、 ，TS 个 个 ^ T '个 g T % ^ T ' ^ T % 个个 ,卜 ~ • T ' ^ T * # T ' 个 9 

vL ^ vf ^ / vL ^ vL ^ VL ^ 少 vL ^ ^ i / •Jy Nl * \1^ 企 

** T ^ ^T % ^ T 、 

Kt^ ' ン 、ン •\lx si^ vf^ %!/ vf^ vO \%y vt^ vf^ vj> v^ • ン Ov vt> *Jv \L» six vl^ vl^ vl^ KlX 、レ \j^ v^ sA^ \j^ sj^ vf^ vj^ \A^ vt>、|/ v^ v|> sA^ sA^ vfv vf> •シ sjy vj> vj^ vj^ 

'卜 ^ r * ^ T * ^ T * ^ i % ^T % 

vl> sly n 1^ y ^ Ni/ 

氺氺冰冰氺本本ネ木氺本冰氺氺氺冰氺氺本本氺氺氺冰冰氺本本氺本氺氺氺氺氺本氺本氺氺本氺氺氺冰本氺氺氺氺氺氺氺氺冰冰木木氺氺氺水冰氺本本水氺本水冰本本本冰冰; 40 f : 木本 

\|^ n !^ \1^ s!^ \j/ \ 2 ^ vl^ sl^ Ni^ \i^ 

^V % % 


この場合は、 80 文字で改行（プリンタ側で行なわれる）した後、20文字めで再び改行してい 
ます。 PC 本体から見れば100文字めで改行したことになりますね。 

普通こういった使い方はしないでしょう。 

③ LW が0の場合 

リスト11 -22 

氺 

氺 


木 

マニュアルでは、 LW が0の時は、256と解釈されるとなっていますが、実際には、1文字 
印字して2回改行することの繰り返しになります。 

これも使える値ではないようですね。 
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④ LW が 255 の場合 

リスト 11-23 


本本冰冰ネ冰氷冰水冰水本冰:ダ:4〇!<水本水木木水冰冰本本本木木水木:4:ネ冰冰ネ本木水木:*!■:冰冰氺水ネギ氺木水木本ネ冰ネ本木本本本木氺冰冰冰木本木本木氺氺木木水氺木本氺ネ 
木氺水: t 、 氺ボ水木岑本冰氷氺ネ冰氺本木木水ネ氺水木木本氺氺冰冰本水氺水水木水水氺水木本水水水本水木冰氺氺本木氷水ネネ本木冰本水水ネ木氺氺木本木氺氺本水ネ木氺 
氺水木ネネネ冰冰ネネ本木冰ネネ： i : ネネ本本本ネネ氺ネネネネネネ氺ネネ水み本本木木本本本木ネネ冰本木本木木ネネ本本ネネ本本木本木ネ冰冰ネ氺本本木本ネ冰本本木水ネ水氺 
木 Y 木ネネ•木木氺 A i : 木不本本本ネネ本本本本本ネ冰ネ木ネ不本水本木;4.、木木木木氺本氺氺木本水水木氺氺氺木本水木木ネ y 本木木木 

マニュアル にはないのですが、 LW が255の時は、特別の働きをします。一見②と同じよ 
うになると思えますが、実際は、 WIDTH LPRINT の値は無視されることになります。っ 
まり、改行はプリンタまかせということです。 

このことは、不特定の桁数のプリンタ用のプログラムを作成する時に意味があります。 

なお、リセット時には、この値は255となっています。 

おなじプログラムでも、プリンタ出力が異なる現象が起こるのは、この値が違っている場 
合が多いようです。 

プリンタ用のソフトには、念のために 、 WIDTH LPRINT 255を入れておくことをおす 
すめします。 

11-4-2 水平タブコードの出力とドット対応グラフィック 

WIDTH LPRINT 255にはもう1つの機能があります。 

次のプログラムを実行すると、画面上では、 TAB コードが正常に出力されますが、プリ 
ンタでは、次のように異なったものが出力されます。 

リスト 11-24 

100 WIDTH LPRINT 255 
110 TAB. CODKS=C.HR$ C9) 

120 PRINT ” ABC” ； TAB.CODES;”DKF" 

130 LPRINT ” ABC” ； TAB. CODE$; ，， l)EF.. 

プリンタ： ABCDEF 
画面： ABC DEF 

ここで WIDTH LPRINT の値を 80 にすると、プリンタにも画面と同じ出力が得られます 
ね。これはどういうことかというと、 Nss - BASIC では、 TAB コードの出力については、 P 0 S 、 
LP 0 S の値を参照して、必要な数だけの CHR $(32) を出力するという方法をとっています。 

ところが WIDTH LPRINT の値が255のときは、このようなことはせずに、プリンタに対 
して CHR $( 9 ) をそのまま送ります。そこでプリンタ側での水平タブ位置が設定されていな 
い場合、上のように一見無視された形になるわけです。 

逆に言えば、 N 88- BASIC では、 CHR $(9) を送るのにプリンタポートを直接コントロー 
ルするという面倒な手順を使わなくても、水平タブ コー ドを送ることが可能になったという 
ことです。 

N - BASIC モードや 、 WIDTH LPRINT の値が255以外のとき、次のプログラムを実行す 
ると、 CHR $( 9 ) の出力に対して、3個の CHR $(32) がプリンタに送られ、 （ A ) のような出 
力になります。 
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リスト n -25 

1 00 し PRINT CHRS (27) ; ，， S0256” ； 
110 FOR 1=0 TO 255 
120 し PR I XT CHRS(I); 

130 MEXT 



これを避けるために、従来はプリンタポ-卜を直接コントロールするプログラムを作って 
いたわけですが、 WIDTH LPRINT 255 によって、このような心配も不要になります。 

WIDTH LPRINT 255 を実行した後、上のプログラムを実行して見て下さい。目的とし 
た出力 （ B ) が得られます。 

4■上き 

11 -5 I / O ポートアドレス 

プリンタを機械語などで直接コントロールしたいときのために、プリンタポートの内容と 
使用法を載せておきます。 

プリ ンタコント ロールボー ト 

( 1 ) プリンタ出カデータ 

OUT 10 H 



l 

6 

5 

4 

3 

2 

1 

0 


PDB 7 

PDB 6 

PDB 5 

PDB 4 

PDB 3 

PDB 2 

PDB 1 

PDB 0 

( 2 ) プリンタストローブ 

OUT 40 H 

7 6 

5 

4 

3 

2 

1 

0 


■ - 







PSTB 


PSTB プリ ンタへのス トローブ 


0 :ストローブオン 

1 :ストローブオフ 

OUT 40 H ポートは、プリンタストローブの他に全てのビットを使用していますの 
で、注意して下さい。 

〇使用法 

プリンタに1文字 （ 1バイト）を出力する手順は次のようになります。 

①プリンタが READY になるまでループします。 
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② データを プリンタ データ ポー トに出力します。 

③ PSTB を0にします。 

④ PSTB を1にします。 

③，④で PSTB をコントロールするときに、はポート 40 H (出力）の他のビットを変更しな 
いように、 E 6 C 1 H 番地 （ N « 8 - BASIC のとき）にある、ポート 40 H に出力した内容を使います。 

この手順を N 『 BASIC で書いたサブルーチンをあげます。変数 A に入っている文字コード- 
を出力します。 

100木 PRINTER . OUT 

110 WHILE INP (& H 40) AND 1 : WEND 

120 OUT & H 10, A 

130 OUT & H 40, PEEK (& HE 6 C 1) AND &HFE 

140 OUT & H 40, PEEK (& HE 6 C 1) OR 1 

150 RETURN 

〇使用例 

機械語で A から Z までを出力させるプログラム例を示します。 

リスト 11-28 


〇 RG 0F320H 


F320 

3E4 1 


し D 

A, 

’A’ 

；START WITH ’A’ 

F322 

061A 


し D 

B, 

26 

； 26 CHARS 

F324 


NEXT: 





F324 

CD35F3 


CALL 

〇し TCHR 

； OUTPUT A CHAR 

F327 

3C 


INC 

A 



F328 

10FA 


DJNZ 

MEXT 

;LOOP 26 TIMES 

F32A 

3E0D 


LD 

A, 

13 


F32C 

CD35F3 


CALL 

OUTCHR 

; OUTPUT CR 

F32F 

3E0A 


し D 

A, 

10 


F331 

CD35F3 


CALL 

OUTCHR 

; OUTPL'T LF 

F334 

C9 


RET 




F335 


〇 UTCHR: 




F335 

F5 


PUSH 

AF 


;SAVE THE CHAR 

F336 


OUTC1 : 





F336 

DB4 0 


IN 

A, 

(40H) 


F338 

0F 


RRCA 




F339 

38FB 


JR 

c, 

OUTC1 

;LOOP WHILE BUSY 

F33B 

F1 


POP 

AF 


;RESTORE THE CHAR 

F33C 

D310 


• 曠 _ _ 

UU 1 

(10H), A 

; OUT TO PRINTER 

F33E 

F5 


PUSH 

AF 



F33F 

F3 


DI 




F340 

3AC1E6 


LD 

A, 

(0E6C1H) 

;PORT 40H BACKUP 

F343 

E6FE 


AND 

0FEH 


F345 

D340 


OUT 

(40H), A 

;PSTB ON 

F347 

F601 


OR 

1 



F349 

0340 


OUT 

(40H), A 

;PSTB OFF 

F34B 

32C1E6 


LD 

(0E6C1H), A 


F34E 

FB 


El 
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F34F FI 
F350 C9 


POP 

RET 


このプログラムを実行しますと、 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 
とプリンタに出力されます。 



第 12 章カセットインタフェース 


カセットインタフェースは、シリアルインタフェース用 LSIpPD 8251 を用い、 RS -232 C 
インタフェースと切り換えて使います。 

12- 1 データ フォーマット 
12-1-1 N 88 - BASIC プログラムファイル 

NrBASIC プログラムをカセットに SAVE した時のフォーマツトは、次のようになりま 
す0 


WAIT 2 秒 D3X10 回 ファイルネーム 6 バイト WAIT 0.1 秒 


/- A - s ^ --- N f - K - - /- A - S 


Mark 

D3 

D3 


D3 

‘‘ 丁，， 

44 it 

“S” 

‘ ‘ 丁，， 

00 

00 

Mark 



フログラム摊 

- 

00X9 回 


WAIT 1 秒 

(E 658,5 9) - (EB18J9) -1 

00 

00 


00 

Mark 



図12-〗 - A プログラムファイルフォーマツト 


まずモータを ON にし、テープ走行が安定するまで待ったあと、 D 3 H を10回書き込み、6 
バイトのファイルネームを書き込みます。ファイルネームが6文字未満のときは、その後に 
⑻ H をつけ加え、6バイトにします。その後再び WAIT がありますが、これは、 LOAD した 
時、この時間を利用して’ Found ’ や’ Skip ’ などの表示をしているためで、これがないとオー 
パーランしてしまう恐れがあります。 

そして、プログラム本体です。プログラム本体は、 E 658, 59 H 番地に入っているプログ 
ラム開始番地から、 EB 18,19 H 番地に入っている番地の1つ前までを書き込みます。この 
本体の最後の3バイトは 00 H になっていて、次に続く 9回の 00 H と合わせ、12回の⑻ H でエ 
ンド マークを 作ります。 

LOAD の時、 D 3 H を10回読むとプログラムファイルと見なし、ファイルネームの比較を 
行ないます。一致していればプログラムを読み込み、 00 H が10回連続して読み出されるとプ 
ログラムファイルの終了と見なし、 LOAD を終了します。 

ところで、このフォー マツ トは、 N - BASIC のフォー マツ トと全く同一です。事実、メモ 
リ容量を超えない範囲で、ボーレイトを600ボー （ cas 2) にした時、 N 88 モードでカセットに 
SAVE したプログラムを N - BASIC モードで読むことは可能ですし、その逆も可能です。し 
かし、いずれの場合も、実行することはできません。なぜなら、中間言語のコードが違って 
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いますし、ステートメントの機能も一部異なっているからです。 

12-1-2 NsrBASIC データファイル 

次にデータファイルのフオーマットについて見てみましよう。 

WAIT 2秒 9 CX 6 回 データ本体 WAIT 1秒 

_ ' A V ,- A - S 二 - K -^ • - A - 

Mark 9 C 9〇 9 C 9 C 9〇9〇 Mark 


図 12-1- B データファイルフォーマット 

最初にテープ走行安定のためのウェイトがあり、 9 CH を6回書き込んでヘッダを作り、 
データファイルであることを示します。続いて、データが書き込まれます。データ内容の形 
式については「12-2 データファイルの書き込み方•読み込み方」で述べます。最後にま 
たウェイトをして終わります。 

一回 PRINT # 文、 WRITE # 文を実行するたびに、これだけのものがつくられます。し 
たがってデータをこま切れにせず、一回の PRINT # 文で、できるだけ多くのデータを書し、 
た方が処理速度が速くなります。 

12-1-3 N 88 モニタの W コマンド 

モニタの W コマンドはチェックサムを付けています。 


24 HX 3 回 ファイル名6バイト WAIT 3 AH アドレス H アドレス L チェックサム 


NEG(Hi + Lo ) 


3 A 

データ数 

デ ー タ 

チェックサム 


3 A 

データ数 



- 夕 

チェックサム 

十 

3 A 

00 

3 A / B 9 

WAIT 

_(? は?夕の合計の) 


データ 数は データが 十分にあるときは80 H 


図 12-1 -C W コマンドフォーマット 

最初に3バイトの 24 H があり、その後に6バイトのファイル名 （6 バイトに足りない分は 
20 H が詰められる）が続き、ファイル名ブロックを形成しています。セーブ時にファイル名 
を付けないと、このブロックは作られません。 0.2 秒の WAIT のあと3 AH があり、セーブス 
タートアドレスがあって、次にアドレスのチェックサムがあります。これはスタートアドレ 
スの上位バイトと下位バイトを足したものを1バイトの符号付き2進数とみなし、その符号 
を逆にしたもの（具体的には NOT をとって1を足したもの）です。 

ここまでがへッドブロックです。つぎに複数のデータブロックが続きます。（データが少 
ないときは1ブロックのこともあります。）各ブロックは 3 AH 、 データ数 （1 バイト）、デ ー 
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OPEN ”casl:test” FOR OUTPUT AS«1 

A=20+50 

B=10 A 20 

C$ = ” 123 ，， 

PRINT «1,A,B,CS 
CLOSE 


夕列、チェックサム （1 バイト）で構成されます。データ数は普通は128バイトですが、残りデ ー 
夕数が128バイトないときにはそれ以下になります。チェックサムはデータ数と各データを 
足し合わせたものの下位1バイトの符号を逆にしたものです。 

データを書き終わると、データエンドの印に 3 A , 00， 3 A または 3 A ， 00， B 9 のパターン 
を書き込みます。つまりデータ数が0のブロックということで、モニタの R コマンドではデー 
夕数 二 0を検出すると、終わりとみなします。 

12- 2 データファイルの書き込み方 • 読み込み方 

データをカセットに書き込むには 
〇 PEN ” CAS 1 :ファイル名” FOR OUTPUT AS #n 
または 

OPEN ，’ CAS 2 ••ファィ ル名” FOR OUTPUT AS #n 
としてオープンしてから、 PRINT # 文、 WRITE # 文で実際にデータを書き込みます。（た 
だし、ファイル名は無視されます。）このときのデータの書き込まれ方はカセット特別で、こ 
のことにより種々の現象が起こります。また、一回に書き込むデータの長さが、区切りを含 
めて255バイトを超えると、読み込めなくなります。 

データの書き込まれ方の規則をまとめると、次のようになります。 

① PRINT # 文の場合 

文字列：そのまま書き込まれる。 

数値：画面にプリントするときと同じく、文字列に変換して書き込まれる 
区切りの コンマ： そのまま”，”として書き込まれる。 

② WRITE # 文の場合 

文字列：’’ ”（ダブルクオーツ）で囲まれて書き込まれる。 

数値：画面にプリントするときと同じく文字列に変換して書き込まれる 
区切りの コンマ： そのまま”，”として書き込まれる。 

12-2-1 数値の読み込み 

数値も文字列に変換されてから出力されていることに注意してください。つまりカセット 
に記録されたデータでは数値も文字列であり、読み込む時に文字列として読み込むと、文字 
列として正常に読み込まれます。 

試しに、次のプログラムを走らせてください。 

リスト 12-1 


0 

IX 


0 


0 
2 3 


0 0 0 
4 5 B 
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テープに書き込まれる データのフォーマッ トは、次のようになります。 


ヘッダ ^ 70 ^^ 1 E + 20 ^ , 12 3 U R L F mark 


図 12- 2 - A サンプルデータ1 

このフアイルを次のプログラムで読むと…… 

リスト 12-2 


10 OPEN ” casl:test” FOR INPUT AS«1 
20 INPUT 灯 1,A$,B$,CS 
30 PRINT A$,B$,C$ 

40 CLOSE 

run 

70 1E+20 123 

Ok 


ちゃんと読めます。では読むときに数値変数に読み込む場合、 NU - BASIC はどうやって 
いるのかというと、実は VAL 関数のルーチンを使って、文字列を数値に変換しているのです。 


12-2-2 文字列の読み込み 

次に、文字列を読み込むときを考えましょう。データとデータの区切りには”，”（コンマ） 
が使われています。 INPUT #文で読むときには、これがデータの区切りになります。したが っ 
て、文字列の中に”，’’が出てくると、これもデータの区切りとみなされてしまい、データが 
一部欠けるだけでなく、それ以降のデータがずれてしまいます。 

PRINT #1，’’ ABCDE ， FGH ”，” IJK ”，” LMN ” とすると…… 


書き込み時： 


区切り 


区切り 



し夕 



:-夕 



:—夕 


ABCDE，FGH 


K 


L M N 


C 


R 


F 


s ---- > 

データ 

^ " --- > 

データ 

< -- . - •泰 

デー タ 

k 1 

データ 

言売み出し時： 

f じ 

T 1 / \ 




区切り 


区切り 


図 12-2- B データのずれ 

これを回避するには、文字列を”’’で囲みます。つまり WRITE # 文を使えばよいわけ 
です。しかしディスクがないシステム （ model 10) では WRITE # 文は使えません。このとき 
は文字列の前後に CHR $( 34 ) をつけて 

PRINT # 1, CHR $(34) + ” 文字列’’ + CHR $(34) 

というようにします。 

ところがこれでも完全ではありません。こんどは文字列内に”が入っていた場合に困りま 
す。カセットから読み込んだ文字列は”で始まっていますから、文字列中に”が現われると、 
そこで文字列が終わったとみなされます。 
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OPEN ” cas 1:test” FOR INPUT ASttl 
INPUT «1, A, BS 
PRINT A, BS 
CLOSE 


OPEN ” casl:test” FOR OUTPUT AS 林 1 
A=34 : B$ = ”ABC ，， 

PRINT tf 1,A, BS ; 

CLOSE 


実行結果 

run 

Tape read ERROR in 20 
Ok 

Tape read error が出ましたね。このデータフアイルのフォーマツトは、画面と同じよう 
にら （0 DH )， 4 (0 AH ) が出力されず、次のようになります。 


ヘッダ u34 u ， ABC mark 


図 12-2- C サンプルデータ2 

最後のデータをよく見て下さい。何の区切りもなく、いきなり終わっています。このため 
に、データが終わってもなお先を読もうとし、ファイル エンドの mark (ニ データがない）に 
続く Space やノイズ等で、 リードエラー を起こすためです。従ってこのように セミコロンを 
最後につけると、最後のデータのみ読めなくなります。 


リスト 12-4 読み込みプロクラム 


結局この問題を完全に解決する方法はありません。なぜならデータ自身もデータの区切り 
も、どちらも文字であって、同じものだからです。疑似的な解決法としては、各データに対 
してその長さを書き込んでおく方法があります。つまり書き込み時には 

PRINT # 1, LEN ( A $), LEN ( B $), LEN ( C $) 

PRINT # 1, A $； B $； C $ 

として、読み込み時には 

INPUT # 1, LA , LB , LC 
GET # 1 ,LA + LB + LC 

FIELD # 1 ,LA AS A $, LB AS B$，LC AS C $ 

とします。しかしこの方法では処理が複雑になる上に、文字列の長さを読み書きする分遅 
くなります。 

12-2-3 PRINT # 文の最後のセミコロン 

ところで PRINT # 文の最後に；（セミコロン）を付けたらどうなるでしよう。実際にやっ 
てみましよう。 

リスト 12-3 書き込みプログラム 


0 0 0 0 
12 3 4 


0 


0 0 0 
2 3 4 
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12-3 N - BASIC モー ドで 1200 ボーを使う 

NtBASIC モードでは、カセツトファイルに600ボー （cas 2 ) と1200ボ ー（ cas 1 ) の2種の 
転送速度が使えましたが、 N - BASIC モードでは600ボーのみしか使用できず、長いデータ 
を作った時など、カセット入出力に時間がかかってしまいます。そこで次のプログラムを実 
行させると、 N - BASIC モードで600ボーと1200ボーの両方が使えます。転送速度の切り換 
えは CMD コマンドを使用します。 

CMDB ……600 ボー 
CMDA ……1200 ボー 

このプログラムは、 N ««- BASIC モードの cas 1で作ったデータファイルを読む時にも使用 
できます。なお、プログラムファイルを1200ボーで CSAVE ， CLOAD することもできます 
が 、 CLOAD の時、このプログラムを実行していなければ全く読めません。 

リスト 12-6 


100 1 

110 ’-1200 bps for N-BASIC mode - 

120 ’ 

130 DEFINT A - Z 
140 FOR 1=0 TO 58 

150 READ AS : POKE &HF2C5+I, VAL (” &H ，， +A$) 

160 NEXT I 

170 POKE &HF0FC,&HC3 

180 POKE &HF0FD,&HC5 

190 POKE &HF0FE,&HF2 

200 DATA 7E,D6,42,20,0A,3E,C9, 32, B6,FI,32 

210 DATA B9,FI,D7,C9,3C,C2,DF,3B,E5,21,EA,F2,22,B7,FI,21 

220 DATA F5,F2,22,BA,FI ， 3E,C3,El,18,E2,FI,3A,6G,EA,E6,0F 
230 DATA F6,18,C3,FD,0B,FI,3A,66,EA,ES,0F,F6,1C,C3,50,0C 

12 - 4 カセツトインタフェース回路の制御方法 


カセットの制御ポートとしては、2011， 21 H ，30 H があります。このうち 20 H ，21 H はバ 
PD 8251 に接続されていて、データのやり取りとそのコントロールに使われます。ポート 
30 H はシリアルインタフェース回路の状態設定を行ないます。シリアルインタフヱース回路 
はカセツトと RS -232 C の両方で共用していますので、 RS -232 C 用にシリアルインタフエー 
ス回路（特に/ノ PD 8251) を使う場合についてもここで取り扱います。 


12-4-1 シリアルインタフエースの状態設定 

ポート 30 H ( OUT ) N 88 -BASIC のワークエリア： E6C0H 番地 


7 6 5 4 3 2 10 
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CDS 

キャリアコント ロール 

0 

* ■ - ■ ■ ■ — ■ " ■ ■ ■… ■ ■ 

マーク 

1 

スペース 


このビットを 1 にしますと、カセットインタフェースの REC 信号はスペースを送り続け 
ますので、カセットは使えなくなります。 


MT0N 

カセットのモータコントロ ール 

0 

モータ オフ 

1 

モータ オン 


BS2 

BS1 

シリアルインタ フエー ス切り換え 

0 

0 

カセット 600 ボー 

0 

1 

カセット 1200 ボー 

1 

0 

禁止 

1 

1 

RS-232C 


12-4-2 キヤリアディテクト 

RS-232C コネクタの I)CD ラインの状態を見ます。 

ポート40 H ( IN ) 


7 

6 

5 

4 

3 

2 

1 

〇 

/ 

/ 

VRTC 

CDI 

exTon 

DCD 

SHG 

BUSY 


図 12-4-B DCD ライン 


DCD ； 

- 

データキャリアデイテクト 

卜 

0 

キャリアデイテクト OFF 

1 

キャリアデイテクト ON 


12-4-3 M PD8251 の使い方 

"PD8251 には 2 つのポートがあり、 20H は実際のデータのやり取りに、 21H は" PD8251 
の制御と状態センスに使われています。 "PD8251 を使うには、まずイニシャライズを行な 
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います。イニシャライズ時には、モード設定とコマンド設定を行ないます。 

モード設定とコマンド設定は同じ出カポート （21 H ) を使用しますので、命令を出力する順 
番が決まっています。8251をハードウェアあるいはソフトウェアでリセットした後の OUT 

21 H 命令がモード設定で、それ以後の OUT 21 H 命令はコマンド設定となります。 

8251を再度モード設定するためには、ビット6に1をたてたコマンドを設定すると、ソフ 
トウェア的にリセットされ、その後、モード設定、コマンド設定の順に行ないます。したがっ 
て、8251を使用する場合、8251にリセットがかかった後の状態（モード設定待ちの状態）であ 
るのか、あるいはモード設定をした後の状態（コマンド設定待ちの状態）であるのかがわかり 
ませんので、2回ダミーコマンドを送るのがよいでしょう。 

ダミーコマンドのデータとして 05 H を用いれば、8251が上記どちらの状態にあったとして 
も動作に悪影響は与えません。 

8251をキャラクタ長8ビット、ストップビット2ビット、偶数パリティ発生/チェック、 
ボーレイトを X 64 モードにイニシャライズした例を示します。 

リスト 12-7 


10 

OUT 

&H21, 

&H5 

:’ Send dummy command to 8251 

20 

OUT 

&H21, 

&H40 

: , Reset 8251 

30 

OUT 

&H21, 

&HFF 

: , Mode instruction 

40 

OUT 

&H21, 

&H5 

: , Command instruction 


NtBASIC および N 88 モニタでのカセツ ト書き込み/読み出し時のバ PD 8251 の設定は この 
ようになっています。（値は16進） 



モ-ド 

コマンド 

書き込み 

CE 

11 

読み出し 

2 E 

14 


モード及びコマンドの詳細を次に説明します。 

( 1 ) モードインストラクシヨンフォーマット 

OUT 21 H 


7 6 5 4 3 2 1 0 


S 2 

SI 

EP 

PEN 

L 2 

LI 

B 2 : 

B 1 


B 2 

B 1 

ボーレイト設定 

0 

1 

Xl 

1 

0 

X16 

1 

1 

X64 
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(例） 300 ボーで転送を行なう場合、8251のクロック TxC 、 RxC は、 

300 Hz ( X 1を使うとき） 

4,800 H Z ( X 16を使うとき） 

19, 200 Hz ( X 64 を使うとき）の周波数に合わせます。 


L 2 

L 1 

キャラクタ長 

0 

0 

5ビット 

0 

1 

6ビット 

1 

0 

7ビット 

1 

1 

8ビット 


PEN 

パリテイ 

イ ネーブル 

0 

パリテイビット 

なし/チェックせず 

1 

パリテイビット 

発生/チヱック 


EP 

偶数パリティ 

0 

奇数パリティ発生 

1 

偶数パリティ発生 


S 2 

S 1 

ストップビット 

0 

0 

無効 

0 

1 

1ビット 

1 

0 

1/2 ビット 

1 

1 

2 ビット 


従ってモードイ ンス トラクシヨ ン として 21 H ポートに DEH を出力しますとボーレイトは 
TxC 、 RxC の1/16、キャラクタ長8ビット、奇数パリティ発生/チヱック、ストップビッ 
卜2ビットというモードになります。 

(2) コマンドインストラクシヨンフォーマット 

OUT 21 H 


7 

6 

5 

4 

3 

2 

1 

0 

0 

IR 

RTS 

ER 

SBRK 

RxE 

DTR 

TxEN 
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TxEN 

送信イ ネーブル 

0 

送信禁止 

1 

送信許可 


DTR 

データター ミナルレデイ 

0 

RS—232C コネクタ上の DTR をロウレベルにします 

1 

RS—232C コネクタ上の DTR をハイレベルにします 


RxE 

受信イ ネーブル 

0 

受信禁止 

1 

受信許可 


ER エラーリセット 

1にしますと パリティーエラー、 オーバーラン エラー、 フレーミング エラー のフラグを 
リセットします。 


SBRK 

センドブレイクキャラクタ 

0 

通常動作 

1 

データ出力を0にします 


RTS 

送信要求 

0 

RS—232C コネクタ上の RTS をロウレベルにします 

1 

RS—232C コネクタ上の RTS をハイレベルにします 


IR 内部リセット 


1にしますと、内部リセットがかかり、バ PD 8251 をモード設定待ちに戻します。 
PC - 8801 mk n では、 " PD 8251 を非同期で用いますので、ビット7は0にして下さし、。 

(3 ) データポート 

IN/OUT 20 H 


7 

6 

5 

4 

3 

2 

1 

0 

D7 

D6 

D5 

D4 

D3 

D2 

D1 

D0 
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DO 〜 D 7 入出カデータ （ 8ビット) 


(4 ) スァータスの読み出し 

IN 21 H 


1 

6 

5 

4 

3 

2 

1 

0 

PSR 


FE 

OE 

PE 

丁 xE 

RxRDY 

TxRDY 


TxRDY ……送信レディ 

このビットが 1 のとき、 "PD8251C 内部のデータバスバッファにはデータが入っていな 
いので、 CPU から 8251 にデータを書き込むことができます。このビットは CPU から 1 キャ 
ラク •タデータが 書き込まれれると、自動的にリセットされます。 

RxRDY ……受信レディ 

このビットが 1 のとき、 8251 から CPU に入力すべきデータが 8251 に入っていることを示 
します。このビットはデータが CPU に読み出されると自動的にリセットされます。 

Tx E ……送信エンプティ 

8251 が送信するデータを持たないとき、このビットは]になります。 

PE •••••• パリティ エラー 

パリティエラーが検出されると、このビットは セッ トされます。コマンドインストラクシヨ 
ンの ER ビットでリセットされます。また、パリティエラーが発生しても、 8251 は動作を継 
fet します。 

OE . 才ーバーランエラー 

あるキャラクタを、次のキャラクタを受信し終わる前に CPU が読み出さなかったときに、 
このビットがセットされます。このビットはコマンドインストラクシヨンの ER ビットでリ 
セットされます。オーバーランエラーが発生しても 8251 は動作を継続しますが、オーバーラ 
ンされた前のキャラクタは消えます。 

FE ……フ レー ミング エラー 

各々のデータの終わりで有効ストップビットが検出されないときにこのビットはセットさ 
れます。この ビッ トもコマンドインストラクシヨンの ER ビッ トでリセ ツ トされます。フレー 

ミングエラーが発生しても、 8251 は動作を継続します。 

DSR . データセットレディ 

RS-232C コネクタ上の DSR 入力の状態を表わします。 
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12-4-4 プログラム例 

(1)1 キャラクタ入力するプログラム例です。 

READY : IN A , (21 H ) ……① 

AND 02 H . ② 

JR Z , READY ……③ 

IN A , (21 H ) ……④ 

AND 38 H . ⑤ 

RET NZ . ⑥ 

IN A , (20 H ) ……⑦ 

RET . ⑧ 

① ステータスを読み込みます。 

② ，③ RxRDY が立つまで、すなわち8251がデータを読み込むまでループします。 

④ ステータスを読み込みます。 

⑤ ，⑥ FE ， 〇 E ， PE のいずれかのビットが立ちますと、 Z フラグ=0で、もとのルー 
チンに戻ります。エラーが起きなければ先へすすみます。 

⑦ 受信データを CPU に読み込みます。 

⑧ Z フラグ=1で戻ります。 

エラーが生じた際には、エラーの生じたフラグ （ FE ， OE , PE ) をリセットする必要があ 
ります。その例を示しましょう。 


IN 

A ， （則… 

…① 

LD 

A ， XXH .". 

…"② 

OUT 

(21 H )， A … 

…③ 


① まず受信バッファの内容を読み出します。これをしないと、受信バッファにデータが残っ 
たままですので、エラーフラグをリセットした直後に8251が次のデータを受信した場合、 
オーバーランエラーフラグが セッ トされてしまいます。 

② ，③エラーリセットはビット4に1をたてますが、その他のビットはコマンド設定時と 
同じにしておきます。コマンド設定時に 05 H を使った場合、データを 15 H とします。 

( 2 ) 次に1キャラクタ、出力するプログラム例を示しましょう。 


PUSH AF . ① 

READY : IN A , (21 H ) ……② 

AND 01 H . ③ 


JR Z , READY . ④ 

POP AF 

OUT (20 H ), A . ⑤ 

RET 

① 送信するデータを待遅させます。 

② ステータスを読みます。 

③ ，④8251のバッファが空になり、データをセット可能になるまでループします。 
⑤送信データをセットします。 
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第 13 章 RS-232C 


RS -232 C とは、元来、通信回線でデータを送受信するモデムとデータ端末装置とを接続 
するための規格として国際電信電話諮問委員会 （ CCITT ) の勧告を受け、米国の EIA 
(Electronic Industries Association ) が決めた標準的なシリアルデータの伝送規格ですが、 
現在では、モデムに限らず、シリアルインタフェースとして広く用いられています。 
PC - 8801 mk II では 、 USART (Universal Syncronous / Asyncronous Receiver / 
Transmitter ) として" PD 8251 C を非周期方式で動作させています。転送速度は、前面の 
ジヤンパスイッ チに より、18.75ボー〜9600ボーまで使用できます。（ただし、 BASIC では75 
ボーー96⑻ボーまでです。） 

また、 PC - 8801 mkll のシリアルインタフェースには、 RS -232 C インタフェースとオーディ 
才カセット インタフェースがあり、同じ8251を切り換えて使用しています。 カセット インタ 
フェースについては第12章をごらん下さい。 

13-1 通信仕様の設定 

RS -232 C を使用するには、通信仕様としてモードとボーレイト（データ転送の速度）を決 
めなくてはなりません。モードの指定は N 『 BASIC ではファイルディスクリプタを使って 
おこないます。ファイルディスクリプタのデバイス名のと ころに，， COM ”， ファイル名のと 

ころにモードを指定します。したがって RS -232 C を Nas - BASIC で使用する場合にはいわゆ 
るファイル名は存在しません。 

モードは通信時のデータ形式や制御情報を指定するもので、パラメータとしてパリティ、 
データの ビッ ト長、スト ップビッ ト長、 X パラメータ、 S パラメータ、があります。夕ーミ 
ナルモードではさらに全二重/半二重、スタック長が指定できますが、ここでは N 88 - BA - 
SIC で行なう場合のみを考えます。さて、 NfBASIC では 

OPEN M COM :①©③④⑤” FOR …… 

のように5文字で指定します 3 

①パリティ E :偶数パリティチェック ( Even ) 

〇：奇数パリティ チェック ( Odd ) 

N :パリテイチェックなし ( None ) 
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② データのビット長 7 : 7ビット 

8 : 8ビット 

③ ストップビット長 1:1ビット 

2 : 1.5 ビット 

3 : 2ビット 

④ X パラメータ X : バッファオーバーフロー コン トロールを行なう 

N : バッファ オーバーフロー コン ト ロー ルを行なわない 

⑤ S パラメータ S :シフト コー ド制御を行なう 

N :シフトコード制御を行なわない 

たとえば、偶数パリティ、データ長8ビット' ストップビット1ビット、 X パラメータ有 
効、 S パラメータ有効とすると、 

” COM : E 81 XS ” 

となります。この章ではこのモードを使用します。 

ボーレイトは PC -8801 mkIl の前面のジヤンパースイッチで指定します。ファイルディス 
クリプタで変更することはできません。 


RS-232C 




図ジャンパスイッチとボーレイト 
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13-2 2 台の PC -8801 mkl を接続する 

「 PC -8801 mkD と他のコンピュータとの間でデータのやり取りを行ないたい」、といった事 
はよくあります。 

例えば、会計、在庫管理システムにおいて、売り上げや出納、入出庫などのマスターファ 
イルをホストコンピュータ上で作成、そのホストに多数の PC を接続し、各部課からのデー 
夕を PC に入力、ホストのファイルに登録する。あるいは、計算の一部をホストが行ない、 
その間 PC は他の計算を行なう。そして結果をホストからもらい、 PC の結果と合わせ最終 
結果を出力する、等々、数多くの応用が考えられます。この様な時、ホスト側に RS -232 C ポー 
卜があれば、簡単に PC と接続できます。 

ここではその基本的な例として、2台の PC - 8801 mkll を接続して、データやプログラム 
を転送することを考えます。 

13-2-1 接続用専用ケーブル 

RS -232 C はもともとコンピュータ（データ端末装置 ） とモデムを接続するためのものでし 
たから、コンピュータ同士を接続するには RS -232 C ケーブルの信号線を一部変更する必要 
があります。これは自分で作成してもよいのですが、 PC 同士を接続するにはすでに変更し 
てあるケーブルが NEC から出ているので、それを利用するのがよいでしょう。型番は 
PC - CA 602 で、品名は RS -232 C 用ケーブル （ リバース）といいます。 

自分で作る場合は次のようにします。まず、 RS -232 C 用オスコネクタを2つ用意します。 
次に、配線図の様に RxD と TxD 、 DSR と DTR 、 といった対になる信号線を入れ換えて接続 
するのです。ただ PC の場合、8番ピンの DCD (キャリア検出信号）は、対になるピンがなく、 
GND ( 7番ピン）に接続しておきます。これで、 DCD は常にアクティブとなります。これで、 
PC 同士が接ながります。対になる信号を入れ換えたことで、各 PC からは、他方が等価的 
にモデムのように見えるためです。 

もし PC 以外のコンピュータと接続するケーブルを作るときには、 PC にないピンが使用 
されていたり、逆に PC にあるピンが使用されていなかったり、あるいは、先の DCD に+ 5 
〜 + 15 V の電圧をかける必要があるものもありますので、十分確認をして下さし''。 
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13 — 


1 



NC 

NC 

NC 

NC 

NC 

NC 

DTR 

NC 

NC 

NC 

NC 

NC 


14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


GND 

TX^D 

RXD 

RTS 

CTS 

DSR 

GND 

DCD 

NC 

NC 

NC 

NC 

NC 


端子番号 信号名 端子番号 信号名 ピン コネ クション 


GND 


GND 


TXD 2 


RXD 3 





TXD 2 


RXD 3 


RTS 


CTS 



RTS 4 


CTS 5 


DSR 


DTR 



DSR 6 


DTR 20 


GND 7 


DCD 8 



GND 


DCD 8 


図13 


- A 信号の入れ換え 


図13 - 2- 巳 RS -232 C コネクタ 


信号名 

ピン番号 

機 育巨 

信号名 

ピン番号 

機 能 

GND 

1,7 

1 •••保安用 アース 

7 •••信号用 アース 

DSR 

6 

モデムからの動作可能信号 

TXD 

2 

送信データ 

DCD 


キャリア検出 

RXD 

B 

受信 データ 




RTS 

mm 

モデムへの送信要求 

DTR 

20 

夕ーミナルの動作可能信号 

CTS 

5 

モデムからの送信可能信号 





23456789 10 1 12 13 
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OPEN ” com:E81XS” FOR OUTPUT AS«1 
A$ = ，， ABCDE, FGHIJ” 

BS=”KLMN 〇 ” 

WRITE 1,AS,B$ 

CLOSE 


13-2-2 データの転送 

では、 2 台の PC - 8801 mkn でデータを転送してみます。この時、双方のボーレイトを合 
わせるのを、忘れないで下さい。 （600 ボーがよいでしょう） 

RS -232 C にデータを出力するには、他のシーケンシャルファイルと同様、次のように行 
ないます。 

送信側 


PRINT # 文ではなく、 WRITE # 文を使っていることに注意してください。これは、デ ー 
夕間に区切りとして、コンマ（，）を出力し、文字列は’’”で囲まれて出力されるからです。 
この時の データ フ オー マツ トは次のようになります。 


| ” A 巳 C D E，F G H I J” ，’， K L M N 0 ち — 

図 13- 2 - C 送信フォーマット 

これを次のプログラムで読むことができます。 

受信側 

10 OPEN ” com:E81XS” FOR INPUT AStfl 
20 INPUT 饵 1, AS , B$ 

30 PRINT 
40 CLOSE 
Ok 

run 

ABCDE,FGHIJ KLMNO 
Ok 

さて、このように基本的にはディスクのシーケンシャルファイルと同様なのですが、1つ 
だけそれと異なって注意しなければならない事があります。それは、バッファの限界です。 

RS -232 C の入力は、内部的にはインタラプトで処理されており、データを1文字受ける 
たびにメイン RAM 上のファイルバッファに蓄え、 INPUT # 文でこのバッファからデータ 
を取り出すわけです。従って、 INPUT # 文によるデータの取り出し速度より、受信したデ ー 
夕を蓄積していく速度の方が速ければ、バッファ内のデータはどんどん増え、ついにはバッ 
ファからあふれてしまい Buffer overflow となってしまいます。特に、ボーレイトが速くデー 
夕の量が多い時は注意しなければなりません。 

この現象を防ぐには、アクノリッジを返す方法があります。つまり、データを送ったら、 
相手が受け取った事を示す返事を出すまで次の送出を待っているのです。ただし、アクノリッ 


0 0 0 0 0 
12 3 4 5 
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A$= ，，八 BCDE,FGHIJ” 

OPEN ” com:E81XS” AS«1 
FOR 1=0 TO 5 

WRITE »1,I,AS : , out data 

INPUT 林 1,ACS :’ in acknowledge 

NEXT 
C し〇 SE 


受信側 


10 OPEN ” com:E81XS” AS«1 
20 FOR 1=0 TO 5 

30 LINE INPUT »l f A$ : f in data 

40 PRINT «1,CHR$(4) : , out acknowledge 

50 PRINT AS 
60 NEXT 
70 CLOSE 

これは割り込みを使うと改良されます。割り込みを使用すると反応が速く、送受双方の処 
理速度が向上します。割り込みについての説明は第 14 章を参照してください。 

次に示すプログラムは、割り込み処理でアクノリ ッジを 返すもので、処理速度向上のため、 
受信データをキュー バッファに 入れ、メインルーチンでは、このキュー バッファから 読み込 
むようにしています。受信側のプログラムをこのプログラムと入れ換えてください。 


受信側 

100 f 

110 ’ RS - 232C with Acknowledge 

120 f 

130 N=10: GOTO 220 

丄 40 ’- Interrupt routine - 

150 COM OFF 

160 LINE INPUT «1,A$ (WSP) ’ Put to queue 

170 WSP= (WSP+1) MOD N 

180 IF ((WSP+1) MOD N)=RSP THEN FULL= — 1•• RETURN ELSE FUL し =0 
190 PRINT 林 1,CHR$ C4) 

200 COM ON 
210 RETURN 

220 f - MAIN - 

230 OPEN ”com:E81XS” AS »1 
240 ON COM GOSUB 140 : COM ON 
250 f 

260 IF RSP=WSP MOD N THEN 300 

270 A$=A$ (RSP) :RSP=(RSP+1) MOD N ’Get from queue 

280 IF FULL THEN GOSUB 180 
290 PRINT A$ 

300 FOR 1=0 TO 100: PRINT ”: NEXT I ’ Dumy loop 

310 PRINT 
320 GOTO 260 


ジの送出を待っているため、その分出力側の処理速度が落ちてしまいます。その例を示しま 
す。 

送信側 


0 0 0 0 0 0 
ンー It - D ^ D 7 
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ad ” com:E81XS” 

rect statement in file 


LOAD コマンドからエラーで抜け出していますが、フログラムは正常に入っています。 
なぜエラーとなるか分かると思いますが、送信側でプログラム•ファイルを送った後、ファ 
イルを OPEN して” beep ” と送っています。これは、実は行番号をつけていなければ何で 
もよいのですが、受信側ではこれをダイレクトステートメントと角単し 、 Direct statement in 
file となったわけです。これで、何とかプログラムを送ることができました。 

ではダイレクトモードでの SAVE としてプログラムを送るのでなく、 BASIC の管理下で 
プログラムの送出ができないでしょうか？これが行なえるのです。次のプログラムを送信側 


13-2-3 プログラムの転送 

次はプログラムを転送してみましょう。メモリからメモリへ転送する場合とディスタから 
ディスタへ転送する場合を考えてみます。 

(1) メモリからメモリへ 

プログラムをダイレクトモードで転送することは簡単で、送信側で SAVE 、 受信側で 
LOAD を行なえば良いのです。ただ、この時受信側では、受信が完了しても LOAD コマン 
ドから抜け出さず、送信側の SAVE が終わってから STOP キーを押さなくてはなりません。 
この理由を説明しましょう。 

転送時のフ ォー マットは、ディスクにアスキーセーブする時と同じでプログラムがアス 
キーコード列として送られます。ところが、ディスクのアスキー形式ファイルと違うのは、 
プログラムの最後を示すエンドマークがないことです。 

L 〇 AD の時には RS -232 C からの入力に対して、キー入力と全く同様の動作でプログラム 
を格納していきます。この時、別にエンドマークのたぐいは識別せず、また仮に識別してい 
ても、送信側で送らないのですから、いつまでたっても LOAD コマンドから抜け出せません。 
したがって、人間が受信側の STOP キーを押さなくてはならなくなるわけです。（これでも、 
プログラムは正常に入るはずです） 

送信側と受信側が近くにあればこれでもよいのですが、送信側と受信側が離れている時な 
ど、 SAVE コマンドの終了を確認できない時どうすればよいでしょう。転送にかかる時間を 
あらかじめ調べておき、ころ合いを見て STOP キーを押すのも1つの方法です。しかし、もっ 
とよい方法があります。送信側で、次に示すようにダイレクトモードで実行させるのです。 

save ， ’ com:E81XS” 

Ok 

open ” com:E81XS” for output astfl 
Ok 

print tfl,”beep" 

Ok 

close 

Ok 

受信側では単に LOAD コマンドのみで結構です。 


1 D 〇 
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で走らせ、受信側で LOAD を実行させます。すると、 


OPEN 

PRINT 

PRINT 

PRINT 

PRINT 

CLOSE 




com:E81XS” FOR OUTPUT AS«1 


«1,”10 for i=0 to 
ttl, ”20 beep 1 : 
»1, ”30 next 
CHRS(4) 


100 " 

beep 


0 



FILES : PRINT 

INPUT ” Type in file name ; NAS 

IF し EN(NA$)>9 THEN PRINT ” Too long ” : GOTO 110 

OPEN ”1:”+NA$ FOR INPUT AS»1 
OPEN ” com:E81XS” FOR OUTPUT AS 饵 2 
WHILE NOT EOF (1) 

LINE INPUT «1,AS 
PRINT AS 
WEND 

PRINT 林 2,CHR$(4) 

CLOSE 


受信側 

load ” com:E81XS” 

Direct statement in file 

Ok 

list 

10 FOR 1=0 TO 100 
20 BEEP 1 : BEEP 0 
30 NEXT I 
Ok 

ちゃんと入ったでしよう。今まで、データファイルとプログラム.ファイルを別のものと 
して考えて来ましたが、その差は受け取る側がプログラムと考えるかデータと考えるかの違 
いのみで、本質的には同じものなのです。 


(2) ディスクからディスクへ 

こんどはディスク上のプログラムを送ることを考えましょう。次のプログラムは、ディス 
ク上のアスキー形式プログラムファイルを RS -232 C に送出し、受信側では受けとったプロ 
グラムをデイスク上にアスキー形式プログラムファイルを作成するものです。 


送信側 


送信側 


0 0 0 0 0 0 
12 3 4 5 6 


00000000000 

01234567890 

IX IX IX IX IX 11 IX 11IX 11 
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受信側 

100 FILES : PRINT 

110 INPUT ” Type in file name ” ； NA$ 

120 IF LEN CNA$)>9 THEN PRINT ” Too long ” ： GOTO 110 

130 OPEN ” com:E81XS” FOR INPUT AS«1 
140 OPEN ”1:”+NA$ FOR OUTPUT ASff2 
150 f 

160 LINE INPUT «1,A$ 

170 IF AS=CHR$ ¢4) THEN 200 

180 PRINT »2, AS 
190 GOTO160 
200 CLOSE 

13-3 機械語による RS -232 C の制御 

機械語によって PC -8801 mkU の RS -232 C 機能を制御するのに便利な ROM 内サブルーチ 
ンを説明しましよう。これは BASIC の RS -232 C を制御する文に相当する機械語のサブ ルー 
チンで、これらを利用すると機械語でも手軽に RS -232 C を制御できます。 

① COM 1 のオープン 
アドレス： 7 BC 2 H 
ENTRY : 

[ EC 8 F -] モード設定コード 

HL コミュニケーションバッファのアドレス 

DE 0 FE 04 H にしておきます。 

[ E 6 ED ] と [ E 6 E 8] は、 0 にしておきます。 

注意：このルーチンは、リターンする時スタックから 4 バイト余分にとりますので、コー 

ルする前にダミーを入れておく必要があります。 

(例） OPEN ” COM : E 81 XS ” をこのルーチンを使って書くと次のようになります。 


FNAME 

EQU 

0 EC 8 FH 

0 PEN _ C 0 M 1 

EQU 

7 BC 2 H 


LD 

HL , COMBUF 


CALL 

OPEN_COM 


RET 

OPEN_COM : PU^SH HL 

PUSH AF ; ダミーの 4 バイトをスタックへ 

XOR A 
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COMBUF : 


LD (0 E 6 E 8 H ), A 

LD (0 E 6 EDH ), A 

LD DE , 0 FE 04 H 

JP OPEN_COMl 

DB 10 + 256 ; コミュニケーションバッファ 


ORG FNAME 
DB ” E 81 XS ”，0 


END 


② COM 1 への 1 文字出力 
アドレス： 3226 H 

ENTRY : A キャラクタコード 

③ COM 1 へのカナ文字出力 

COM 1 に SI/SO プロトコルでカナ文字を出力します。 

アドレス： 3203 H 

ENTRY : A カナ文字コード 

④ COM 1 のポーリング 
アドレス： 7570 H 

EXIT : HL 受信した文字数 

フラグ等は変化します0 

⑤ COM 1 からの1文字入力 
アドレス： 7 C 9 BH 

ENTRY : A 1を入れます。（キューナンバー1を表わします。） 

EXIT : A キャラクタコード 
© COM 1 の クローズ 
アドレス： 7 C 5 7 H 

ENTRY :〔スタックのトップ〕ファイルポインタ VARPTR (# n ) 

EXIT : [ E 6 ED ] 0が入ります。 

このルーチンはリターンするとき、ファイルポインタの他にスタックから2バイト余分にとります のて、: 
コールする前にダミーを入れておく必要がありま1~。 
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(例） 

CLOSE COM 1 


CLOSE COM : 


EQU 7 C 57 H 
LD HL , COMBUF 
CALL CALL CLOSE 


RET 

； ダミーの 2 バイトをスタックに入れます 
;ファイルポインタをスタックに入れます 

J P CLOSECOM 1 


END 


PUSH HL 
PUSH HL 
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第 14 章割り込み 


N ^ BASIC ではファンクシヨンキーや STOP キーなどを押した時にあらかじめ指定した 
行へ GOSUB させる機能があります。これを便宜上 BASIC 割り込みと呼ぶことにします。 
また、機械語レベルではソフトウヱアでマスク可能な8レベルの優先順位をもつ割り込み機 
能を持っています。これを機械語割り込みと呼ぶことにします。機械語割り込みはハードウエ 
アと密接な関係を持っていますから、ある程度ハードウエアの知識がないと使いこなすこと 
はできません。 

14-1 BASIC 割り込み 

14-1-1 BASIC 割り込みステートメントの機能 

ここでは HELP キーを使った BASIC 害 ij り込みを例にとって説明します。プログラムの最 
初に ON HELP GOSUBX XX で割り込み処理ルーチンを定義し、割り込みを可能にする 
HELP ON 命令を実行すれば、 HELP キーを押した時に、定義した処理ルーチンに GOSUB 
します。この割り込み関係のステートメントを示します。 


ON HELP GOSUB 
HELP ON 
HELP OFF 
HELP STOP 


割り込み処理ルーチンの定義 
割り込み可能 
割り込み禁止 
割り込み一時保留 


この中で 、 HELP OFF と HELP STOP の違いは明確にしておいて下さい 。 HELP OFF 
は割り込みそのものを無視するもので 、 HELP OFF の間にキーが押されても割り込みはお 
こりません。一方 、 HELP STOP の方では、割り込みは発生しますが、これを受けつけ、 
実際の処理ルーチンへ行くのを保留しておくのです。ですから 、 HELP STOP を解除した 
段階 （HELP ON ) で受けつけられ、処理ルーチンへ制御を移します。この時 、 HELP OFF 
を実行すれば保留されていた割り込みはキャンセルされます。 
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モード 

割り込み 

受付状態 


HELP ON 

HE し P STOP 

HELP ON 


~| 害 1] り込み発生、 

l l 実際に処理ルーチンへ 


保留 

受けつけ 


モード 

割り込み 
受付状態 


HELP ON 


HELP STOP 


HELP OFF 


HE し P ON 



割り込み発生 


処理ルーチンは実行されな 



キャンセル 


図 14- 1 - A HELP ON / OFF/STOP 



HELP STOP を解除し割り込み可にするのは HELP ON です。また、割り込み保留状態 
にするには、一旦 HELP ON にし、その後 HELP STOP にしなければなりません。図に示 
すと次の様になります。 


HELP ON 



14-1-2 BASIC 割り込みはどこでかかるか 

いままでは単に HELP ON のとき HELP キーを押すと割り込みがかかると考えてきました 
が、はたして押した瞬間にかかるのでしようか。このプログラムを実行して、 PAINT を行なつ 
ている間に HELP キーを押してみてください。 

10 SCREEN 0,0 : ROLL 197 
20 ON HELP GOSUB 70 : HELP ON 
30 LINE (100,1 00)- （ 200,180) , 5,B 
40 PAINT (150, 150),6,5 
50 HELP OFF 
60 END 

70 PRINT ” HELP INTERRUPT! !" 

80 HELP OFF 
90 END 
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PAINT が終わってから HELP INTERRUPT !と表示されましたね。つまり BASIC 害 IJ り 
込みは文の実行中に割り込み要因が起こっても、文の実行が終わるまでは保留になっている 
わけです。別の言い方をすれば、 BASIC 割り込みは文と文の間でかかるわけです。 

ただし、 INPUT 文は例外です。これは入力待ちのときにもかかります。（ファンクション 
キー割り込みがかからないのはわざとそうしているのです。）また、入力待ちのときにかかっ 
た割り込みからただの RETURN で戻ると、マニュアルとは異なって、 INPUT 文がある行 
の次の行から実行を再開することに注意してください。 INPUT 文から後の文は無視される 
わけです。 

14-2 機械語割り込み 

機械語割り込みはハードウェアからの要求によって生じ、割り込みル-チンへの分岐もハー 
ドウヱアによって自動的に起こります。 Z -80(" PD 780) の割り込みにはノンマスカブルイ 
ンタラプト （ NMI ) とマスカブルインタラブトがあります。 NMI はソフトウェアによって禁 
止できない割り込みで、スロットバス上にピンが出ていますが、ソフトウェアでのサポート 
がないため使用できません。ただし、 64 KRAM モ-ドにして、独自にソフトウェア/ハード 
ウェアを作成すれば使用することもできます。これに対してマスカブルインタラプトはソフ 

トウェア （ EI / DI 命令）で許可/禁止の制御ができるものです。また、 PC -8801 mkI ] ではし、 
くつかの割り込みを個々に許可/禁止することもできます。 

14-2-1 割り込み テーブル 

NU - BASIC 、 N - BASIC では Z -80( " PD 780) は、インタラプトモード2で動いています。 
このモードでは割り込みルーチンのアドレスは、割り込みテーブルを参照して決められます。 
つまり、割り込みの種類によってあらかじめ指定されたアドレスへ飛んで行くわけで、 
BASIC の ON KEY GOSUB XXXX, XXXX ， •••と考え方としては似たようなものです。 
この XX XX ， XXXX, …に相当するものが割り込みテーブルです。 PC -8801/ mkII では 
8レベルの割り込みが可能ですから、割り込みテーブルも8つのアドレスからなっています。 

(1) N - BASIC 動作時の割り込み 

N - BASIC 動作時は割り込み機能を使用していないため、8レベルの割り込みはすべて使 
用することができます。ただし、優先順位が高いほうの3チャネル （ RXRDY 、 VRTC 、 
CLOCK ) は、その用途に合わせたハードウェアと接続されているので、他の目的に使用す 
ることができません。また FDINT 1 、 FDINT 2割り込みは、通常のユーザ割り込みと同 
様に使用することができます。 
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優先 

順位 

アドレス 

アドレステーブノレ 
の 内容（初期値） 

チャネル 

用 途 

BASIC 

での使用 

レベル 

■一 ■ ■! 

高 

T 

低 

8000 ： 
1 

E6 

F 1 | 

RXRDY 

^- T 232C 受信割り込み 

N0 

〇 

8002 

3 

— ■ ■■ ■ ■ 1 ■ ■ - ■一 ■ ■ 1 

E9 

F 1 

VRTC 

画面終了割り込み 

— 一 !■ ■画 丨 ■ — 

N0 

1 

8004 

5 

A5 

7 F 

CLOCK 

ィ厶 （ 1/600S) 

N0 

2 

— 

8006 | 

7 | 

__■■■■■■ ■ 11 - ■ 画 ■■■画 ■ ■ 1 

A5 1 

7F 

INT 4 

ユーザ 割り込み 

N0 

3 

• — Mm \ 

8008 

9 

■ ■ ■ ■ 1 ■ ■ ■ j 

7F 

23 

INT 3 

| // 

N0 

4 

■ || 1 _ 1 ■ 

800A 

巳 

A9 

23 

INT 2 

// 

N0 

■ ■_ ~ — 

5 

8000 

D 

A5 

フ F 

FDINT1 

| // 

N0 

1 ■ 

6 

800E 

1— F 

A5 

7F 

L ■■— ■ ■■ 

FDINT2 

// 

L ■ ■ ■ - 

N0 

7 

1_1 


N - BASIC の割り込みテーブル表 
⑵ Nsa - BASIC 動作時の割り込み 

N 『 BASIC 動作時は、 RXRDY 、 VRTC 、 CLOCK の各割り込みを使用しています。さら 
に8インチのフロッピーディスクを使用する場合は、 FDINT 1 、 FDINT 2割り込みも使用 
しますのでこれらのチャネルの割り込みテーブルを安易に書き換えると暴走します。つまり、 
INT 4 , INT 3, INT 2 の3チヤネルがユーザに開放されているわけです。 


優先 

順位 

アドレス 

アドレステーブノレ 
の 内容 

チヤネル 

用 途 

BASIC 
での使用 

レベル 

高 

1 

低 

F300 

1 

EA 

E7 

RXRDY 

^- T 232C 受信割り込み 

YES 

> _ ■ ■ ■ ■ ■ •{ 

〇 

F302 

3 

08 

E8 

VRTC 

画面終了割り込み 

YES 

1 

F304 

5 

OF 

E8 

CLOCK 

多ィ厶 （ V 600 S ) 

YES 

2 

F306 

7 

14 

E8 

INT 4 

ユーザ 割り込み 

NO 

3 

F 308 1 
9 

14 

E8 

INT 3 

// 

NO 

4 

F30A 

巳 

14 i 

E8 

INT 2 

// 

NO 

5 

F30C 

D 

1 A 

E8 

FDINT1 

! FDD 用リザーブ 

YES 

6 

F30E 

F 

20 

E8 

FDINT2 

FDD 用リザーブ 

YES 

6 

■ — — ■ J 


N 88 - BASIC の割り込みテ ー フル表 


14-2-2 割り込みチャネル 

ユーザ割り込みをかけるためにはスロットバス上の対応するピンに割り込み要求信号を入 
れます。割り込み制御回路には割り込み要求を保持するフリップフロップがありますので、 
スロッ トバス上のチャネルにネガ テイ ブエッジの要求信号を入力することにより割り込みを 
発生させることができます。したがって、割り込み要求信号は、割り込みが受け付けられる 
まで ロウレベルに 保つ必要はありません。また この フリップフロップは、 そのレベルの 割り 
込みが受け付けられると自動的にリセットされ、割り込み要求は解除されます。 

14-2-3 割り込みコントロ ー ルポ ー ト 

割り込みル ー チンの説明のために割り込みコントロー ルポ ー トの働きを理解しておく必要 
があります。 PC - 8801 mk I ]では割り込みコントロール用のポートとしてポート E 4 H , E 6 H 
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があります。 

①ポート E 4 H 

このポートに よって、 割り込み コン トロール回路の カレン トステータスレジスタに優先度 
判断のための現在のインタラプトレベルと、優先度判断方法のモードを書き込みます。 

ポート E 4 H ( OUT ) N 88 - BASIC のワーク エリア： E 6 C 3 H 番地 

7 6 5 4 3 2 10 


SGS 巳 2 B , Bo 


図 14-2 - A ポート E 4 H 

B 2 B 1 B 0 インタラプトレベルの設定 （ 0〜7 : 0が最高レベル) 


SGS カレント ステータス レジスタの コン ト ロール 

〇 インタラプトレベルと比較し割り込み発生 

1 優先順位のみによる割り込み発生 


通常は SGS = 0で使用します。インタラプトレベルの設定をするときには N 『 BASIC の 
とき E 6 C 3 H 番地、 N - BASIC のとき EA 55 H 番地に同じものをストアしておきます。これは 
インタラブトのネスティングが起こったときのために、以前のインタラプトレベルを知って 
おく必要があるからです。 

②割り込みマスクフラグ 

このポートは RXRDY ， VRTC ， CLOCK の3種の割り込みの許可/禁止を個々に設定す 

るものです。 

ポート E 6 H ( OUT ) N 88 - BASIC のワークエリア： EF 0 EH 番地 


7 

6 

5 

4 

3 

2 

1 

〇 

■ 

■ 

■ 


■ 

RXMF 

VRMF 

RTMF 


図 12- 2 - B 割り込みマスクフラグ 


RTMF CLOCK 割り込み マスク クラブ 

0 : 割り込み禁止 

1 : 割り込み許可 

VRMF VRTC 割り込みマスククラブ 

〇 : 割り込み禁止 

1 : 割り込み許可 

RXMF RS -232 C 受信割り込みマスククラブ 

〇 : 割り込み禁止 

1 : 割り込み許可 
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14-2-4 一般的な割り込みの使い方 

N 88 - BASIC での ユー ザ割り込みを用いた標準的な例を示します。この例では割り込み処 
理ルーチンはメイン RAM 上 （8400 H 〜 FFFFH ) に置く必要があります。割り込みを使うた 
めには、まず、割り込みコントロール回路のカレントステータスレジスタを操作する必要が 
あります。 

( 1 ) 初期設定 

DI 

LD A ，0 F 3 H 

LD I， A ;1レジスタに割り込みテーブルの上位アドレスをセット 

LD A , 07 H 
OUT (0 E 4 H ), A 

LD HL , INT ; インタラプト処理ルーチンアドレス 

LD (その割り込みのテーブルアドレス ）， HL 

EI 

割り込み コン トロール回路のカレントステータスレジスタに全てのレベルの割り込みを許 
可し、割り込みテーブルに割り込み処理のアドレスを設定します。ここで ラベル INT が割 
り込み処理ルーチンの入口を表わしています。 

(2) 割り込み処理 

INT : DI 

PUSH AF 
PUSH HL 

PUSH DE ① 

PUSH BC 
LD A , (0 E 6 C 3 H ) 

PUSH AF ② 

參 

: ③ 


LD 

A , 割り込みレベル 


OUT 

(0 E 4 H ), A 

④ 

LD 

(0 E 6 C 3 H ), A 


EI 

參 

# 

參 


⑤ 

• 

POP 

AF 


LD 

(0 E 6 C 3 H ), A 

⑥ 

OUT 

(0 E 4 H ), A 
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POP BC 
POP DE 

POP HL ⑦ 

POP AF 
RET 

① レジスタを退避します。 

② E 6 C 3 H 番地には、 E 4 H ポートに出力したデータが入っていますので割り込み直前の害 IJ 
り込み レベルが 保存されています。これは、この手続きで変更されてしまいますので、ス 
タックに退避します。 

③ DI 状態での割り込み処理を行ないます。 

④ 割り込みレベルを割り込みコントロール回路のカレントステータスレジスタに書き込み 

E 6 C 3 H 番地にも保存します。 

⑤ EI 状態で実行させることが可能な処理を行ないます。 

⑥②で保存した値を復帰させ、割り込み発生直前の割り込みレベルをカレントステータス 
レジスタに復帰させます。 

⑦全てのレジスタを復帰させ、割り込まれたプログラムに戻ります。 

N - BASIC のときには割り込みテーブルのアドレスを変え、 E 6 C 3 H 番地の代わりに 
EA 55 H 番地を使うだけです。 

14-2-5 N - BASIC での割り込み処理 

「14-2 - 1割り込みテ-ブル」にあるように、 N 88 - BASIC では割り込みルーチンの エン ト 
リは RAM 上に置かれています。ここには、割込みレベルを割込み コン トローラにセットし、 
メモリバンクを N 88 -BASIC ROM にもどして、本当の割込み処理ルーチンを CALL するプ 
ログラムがすでに書き込まれています。これは RAM 上にあるので書き換えることも可能で 
すが、やはり BASIC インタプリタが使用しているので十分な注意が必要です。 

N 88 - BASIC での割込み処理ルーチンは以下のとおりです。 

•RXRDY 

テーブルア ドレス： F 30 0 H 
割り込みルーチンエントリ： E 7 EAH 
ROM 内割り込み処理ルーチン： 3167 H 

シリアルインターフェースから受取ったデ ー タを入カバッファに入れます。 RS -232 C の 
場合は X パラメータの 処理も行います。 

•VRTC 

テーブルアドレス： F 302 H 
割込みルーチンエントリ： E 808 H 
ROM 内割込み処理ルーチン： 3080 H 

カーソルの ON / OFF 、 ライトペン入力処理、キー入力処理を行います。 
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•CLOCK 

テーブルアドレス： F 304 H 
割込みルーチンエントリ： E 80 EH 
ROM 内割込み処理ルーチン ：4143 H 

INPUT WAIT の時間処理、 ON TIMES GOSUB の時間処理、 FDD の時間処理を行います。 
•FDINT 1 

テーブルアドレス： F 30 CH 
割込みルーチンエントリ： E 81 AH 
ROM 内割込み処理ルーチン： 3 CB 9 H 

5インチ DMA タイプの動作終了 • 状態変化割り込みの処理を行います。 

• FDINT 2 

テーブル アドレス： F 30 FH 
割込みルーチンエントリ： E 820 H 
ROM 内割込み処理ルーチン： 3 CACH 

8インチ DMA タイプの動作終了 • 状態変化割り込みの処理を行います。 

14-2-6 VRTC 割り込み 

VRTC 割り込みは一画面の表示が終わるたびにかかる割り込みで、標準 CRT のときは約 
16 ms ごと、高解像度 CRT のときは約 17 ms ごとにかかります。さきほど Nt BASIC では 
VRTC 害 I )り込みが既に使用されていてユーザは使用できないと述べましたが、 VRTC 害 IJ り 
込みはとても重宝な機能なのでぜひとも使いたい機能です。そこで、ここでは VRTC 害 IJ り 
込みを使用する方法を説明しましょう。もちろん N« 8 -BASIC の機能は止めません。また、 
クロック割り込み （ 1 . 67 ms ごと）も同様の方法で使用できるようになります。 

N『BASIC では VRTC 割り込みのルーチンエントリは E 808 H です。ここには 


E 808 : 

PUSH 

HL 

E 809 : 

LD 

HL , 308 OH 

E 80 C : 

JR 

0 E 7 EEH 


というルーチンが置かれています。この 3080 H というのが VRTC 割り込みの核となる処理 
ルーチンのアドレスです。ですから、ここを自分で作ったルーチンのアドレスに書き換えて、 
そのルーチンの終わりで308 0 H に飛ばしてやればよいわけです。 

たとえば自作のルーチンが MYINT というラベルのアドレスにあるとすると、 


E 809 : LD HL，MYINT 

と書き換えます。ただし、書き換えるのにモニタの S コマンドなどで書き換えると、書き換 
える途中にも VRTC 害 II り込みはかかっていますから、アドレスがくるって暴走してしまい 
ます。したがって、あらかじめ自作のルーチンを用意したあと、機械語プログラムで次のよ 
うにして書き換えます。 
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DI 

LD HL，MYINT 
LD (0 E 80 AH)，HL 
El 

RET 

このプログラムを実行したとたんに VRTC 害りり込みは自作のルーチンを通るようになり 
ます 。 

自作のルーチンは次のようにしておきます。 


MYINT : DI 

PUSH DE 
PUSH BC 


:念のため DI をかける 
レジスタを PUSH する 


HL と AF は既に PUSH してある 


処理 


POP 

BC 

; レジスタを POP する 

POP 

DE 


JP 

308 OH 

; VRTC 本来の割り込みルーチン 


割り込みコントロール回路へ割り込みレベルを出力したりするのは VRTC 割り込み本来 
のルーチンが行なってくれます。そのかわり、 DI 状態で処理をおこなわなければなりません。 
したがってそのあいだ他の割り込みがかかりませんから、処理にあまり長い時間をかけるわ 
けにはいきません。 
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第 15 章 ランダムテクニック 


15- 1 XFILES でクランチを 

システムディスクに入っているディスク ユー ティリティの 「TRANSFER FILES 」 は異 
なるタイプのディスク間でのバックアップなどに使われますが、同じタイプのディスクで 
あっても利用法があります。 

多数のファイルの生成、削除を繰り返していると、ファイルデータがディスク上のあちこ 
ちに分散してしまいます。このようなディスクを 「TRANSFER FILES 」 で他のディス 
クに移すと、ーヶ所にかたまって記録されるようになります。こうすると、ファイルへのア 
クセス時にへッドがあまり動く必要がなく、この分だけアクセスが早くなります。 

15-2 プリンタの行ごとの印字ずれの対処法 

プリンタがロジカルシークモードになっている場合には、印字方向によって行ごとにずれ 
が生じる場合があります。グラフィックキャラクタで表を作成したものを印字する時など、 
印字ずれが起きては困りますね。 

これに対して、 PC -8023( C ) ではインクリメンタルモード、他のプリンタでは片方向印字 
モードにすることによって、ずれを防ぐことができます。 

PC -8023( C ) の場合 
LPRINT CHR $(27) ； CHR $(91) 

他のプリンタの場合 
LPRINT CHR $(27) ； CHR $(62) 

これらのモードの解除は、どちらの場合も 

LPRINT CHR $(27) ； CHR $(93) 

とします。なお、プリンタがどれを使うかわからない場合は、上の2つとも実行しておけば 
よいでしよう。 


15-3 LSET , RSET , MID $ の利用法2つ 

LSET , RSET は FIELD 文で宣言された文字変数に対して用いることになっていますが、 
実は普通の文字変数に対しても使用できます。ただし、あらかじめその文字変数にはダミー 
の文字列を入れておく必要があります。 

A $ = ” ABCDEF ” （ A $ を6文字長の文字変数として宣言する） 

LSET A $ 二 ” PQR ” 

とすると、 A $ には POR が入り、残りの3文字にはスペースが詰められます。 RSET で同じ 
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WIDTH 80,25 : CONSOLE 1,25 : CLS 
A$=SPACE$(80) 

P=VARPTR(A$) 

POKE P+1,&HC8 : POKE P+2,&HF3 

COUNT=0 

» 

WHILE 1 

MID$CAS, 70)=STRS (COUNT) 


ことを行なうと、初めに 3 文字のスペースが入り、そのあとに PQR が入ります。文字列の長 
さは変りません。考えてみると、これは MID $ 文の働きとよく似ています。たとえば、 

A $ - ” ABCDEF ” 

MID $( A $, 1)=” PQR ” 

とすると、 A $ は PQRDEF となります。代人しなかった所がスペースになるかそのまま残る 
かの違いだけです。 

この3つの文に共通する特徴として次のものがあります。ふつう、文字列を操作するとそ 
のたびに古い文字列は捨てられてメモリ上に新しく文字列が作られ、メモリがいっぱいに 
なったところでガーべジコレクションが起こります。しかし、 LSET , RSET , MID $ を使っ 
て操作すると、古い文字列の上に新しい文字列が上書きされますのでメモリがいっぱいにな 
ることがなく、ガーベジコレクションが起こりません。ただしこのためにはプログラム中の 
全ての文字列代人操作をこの方法でおこなう必要があり、 INPUT 文なども使えないという 
制限があります。またあらかじめ宣言しておいた以上の長さの文字列が代入ができない（余 
りは無視される）という欠点もありますが、絶対にガーべジコレクションを起こしたくない 
ときにはやむを得ないでしょう。（なお、通常は問題ないのですが、 LSET , RSET では、 
代入される文字変数のディスクリプタが指すアドレスが80⑻ H 〜 E 879 H にないと、上書きさ 
れずに新しく文字列がつくられてしまいます。 MID $ ではラベル領域〜配列変数領域を指し 
ているときにかぎって新しく文字列がつくられますが、こんな使い方はしないでしょう。） 
さて、これらの文の別の利用法に、ディスクリプタを操作して、指定したメモリにデータ 
を書き込むというのがあります。次の例を見てください。 

10 WIDTH 80,25 : LOCATE 0,10 
20 A$=SPACE$(80) 

30 P=VARPTR(A$) 

40 POKE P+1,&HC8 : POKE P+2,&HF3 
50 * 

80 MID$ (AS, 1)= ，，し INE0” 

まず 20 行で 80 文字長の文字変数を宣言し、30，40行でディスクリプタを操作して A $ が画 
面の最上行を指すようにします。そして60行で A $ に LINE 0という文字列を代入すると、 
画面の左上にその文字列が現われます。（ディスクリプタの指すアドレスが E 879 H よりも後 
にありますので、 LSET，RSET は使えません。）この方法を用いると画面上の複数の特定の 
場所に文字列を表示するのに、いちいち LOCATE 文で指定する必要がなくなります。次の 
例ではキーボ ー ドから文字を入力しながら入力した文字数を画面の右上に表示し続けます。 
このプログラムを MID $ を使わずに書くと、 P 0 S ( 0 ) と CSRLIN を使っためんどくさいも 
のになります。 


0 0 
0 1 
11 11 


0 0 
2 3 


0 0 
4 5 


0 0 
6 7 
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180 PRINT INPUTS Cl); 
190 C0UNT=C0UNT+1 
200 WEND 


15-4 配列データ高速読み込み 


数値型の配列のデ ー タを読み込むには、通常次の方法があります。 

① プログラム中にデータ文として存在するデータを READ 文で読む。 

② フアイルとして存在するデータを INPUT # n 文で読む。 

どちらの方法をとったとしてもデータが大量な場合には結構時間がかかります。このよう 
な場合には、データを機械語ファイルとしてしまっておいて、 BLOAD 文で一気に読み込む 
ことができます。 


8000 


単純変数 

テーブル 


配列変数 

テーブル 


巳 SAVE 


BLOAD 



FFFF 


図 15- A 配列データ高速読み込み 


まず配列データを BASVE します。開始番地は VARPTR (< 配列名 >( 〇 )) です。1次元配 
列の時 OPTION BASE の値は EC 1 FH 番地に入ってし、ますから 、 VARPTR (く配歹 IJ 名〉 
( PEEK (& HEC 1 F ))) としても結構です。 データの 長さは、（要素の数） X ( 1要素のバイト数) 
です。 

(要素の数）は、 

「添字の最大値+1 —OPTION BASE 」 をすベてかけ合わせたものです。 

( 1要素のバイト数）は、 

整数型……2バイト 
単精度……4バイト 
倍精度……8バイト 

です。たとえば 、 DIM A %(5， 6，7 )、 OPTION BASE 0 の時は、 

BSAVE ’’< フアイルデイスクリプタ〉”， VARPTR ( A %( 0,0,0), 6*7*8*2 
となります。 

データを BLOAD する時も同じです。まず DIM で BS AVE した時と同じ大きさの配列を宣 
言します。次に BLOAD します。先ほどの例では 

BLOAD ’’< ファイルデイスクリプタ〉”， VARPTR ( A %( 0,0,0)) 


となります。 
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15-5 実行中にプログラム自身を書き換える 


LINE INPUT ” SHIKI: ” ， SHIKI$ 

OPEN ” SHIKI.asc” FOR OUTPUT ASffl 
PRINT 饵 1,”60 ans= ”； SHIKIS 
CLOSE 

CHAIN MERGE ” SHIKI. asc” ， 60, ALL 

ANS=5 木 6 

PRINT SHIKIS;” = ” ;ANS 
END 


run 

SHIKI:1 木 2 本 ; 3/4 
1 木 2 木 3/4 = 1. 5 
Ok 

15-6 FIX , INT , CINT 

この 3 つはどれも実数型を整数に変換する関数ですが、微妙な違いがあります。 

⑱ FIX •••整数部分をとる関数で 1. 5— 1 ， -2. 3—- 2となります。 

癱 INT …その値よりも小さい整数の中で最大のものをとる関数です。 1.5—1 となりますが、 

■2. 3—*•- 3となります。 

籲 CINT …小数部分を四捨五入します。 1. 5-2,-2. 3—- 2となります。 

これらを図に示すとこのようになります。 


プログラム実行中にプログラム自身を書き換えたい場合があります。たとえばデ ー タ乂を 
g 動的に作成して、そのデータを使って処理をするときや、入力した式を使って計算をする 
ときなどです。こんなことはできないような気がしますが、実は N 8 « DISK-BASIC にはそう 
し、う機能があるのです。それは CHAIN 文です。書き加えたいプログラムを一旦ディスクに 
データファイルとして書き出し、そのファイルを CHAIN MERGE を使って取り込めばよい 
わけです。ただし、 ALL オプションを付けても DEF FN ， OPTION BASE , ON 
ERROR GOTO , ON 害 ij り込み GOSUB などは無効になりますから、 CHAIN MERGE した 
後で設定しなおす必要があります。下の例は LINE INPUT した式を計算して結果を表示す 

るものです。 


00000000k 
12345 6780 
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— 3 -2 



INT FIX 

CINT 


-10123 



INT FIX 
CINT 


FIX 

INT 

CINT 



FIX CINT 
INT 


図 15- B 整数変換 


15 - 7 数値と文字列との変換 


数値を文字列に変換する関数には STR $ をはじめとして、 HEX $, 0 CT $， CHR $， MKI $， 
MKS $， MKD $ とたくさんありますが、それらの一覧表を上げます。 



1文字目にはスペース 
or 負号が入る 


0 S 数値 S 255 


ランダムファイルのため。 
文字列の長さが一定 
である。 


図 15- C 文字列への変換 
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15-8 数値の内部表現 


CALL 文では変数のア ドレスが渡されますが、変数の内部表現がわからなければ利用の 
しようがありません。また VARPTR を用いて変数の値を操作するときも同様です。そこで 
数値の内部表現を下に示します。 


〔整数型〕 

VARPTR が指す 



上位 下位 


15 14131211 10 9 8 7 6 5 4 3_210 

11 1 HUM limfflD 

人か口 

付万 

〇•••正の数 
1•••負の数 


数値は符号付きの16ビット2進数で 
表わされています。 

10進数との対応は、16ビットを 
4ケタの16進数に変換したものに 
& H をつけて PRINT するとわかります。 


16進 

1〇進 

7 FFF -- 

••••32767 

7 FFE - 

• 

• 

•…32766 

• 

0001 

1 

0000 

〇 

FFFF 

• 

一 1 

琴 

• 

8001 

-32767 

8000 

-32768 


〔単精度型〕 


VARPTR が指す 



23 22 212019181716151413121110 9 8 7 6 5 4 3 210 


6 5 4 3 



符号(仮数部) 
0•••正の数 
r ••負の数 


value = 土 mX 2° 





この23ビットで小数部を表わす。 


m =1 • 



1桁上（第23ビット）に 
1があり、小数点がそ 
の問にあるとみなす a 


数値は仮数部24ビット、指数部8ビットで表わされています。 
* 指数部が0であると仮数部に関係なく値は0とみなされます。 


81H を0とする指数 e 
FF 126 

FE 125 

82 1 


〔倍精度型〕 


「 VARPTR が指す 



指数部 

仮数部が7バイト （56 ビット）に増えただけで単精度と同じです 


図 15-D 数値の内部表現 
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15 - 9 三角関数の求値法 


N « 8 - BASIC インタプリタがどのようにして数値関数の値を求めているのかというと、す 
ベて近似式によって計算しているのです。ここでは N 88- BASIC ， N - BASIC が使用している 
三角関数（単精度）を求めるアルゴリズムを紹介します。 

① SIN ( X ) 

w <- x / 2 tt 

u — w — INT 、 w ) 

もし、 

OSu く 0.25 のとき v **— u 

0. 25‘ u < 0. 75 のとき v —0. 5 -u 
0. 75^ u < 1 のとき v — u -1 

S — V 2 

SIN ( x ) = vX ( a,s 1 + a 2 s 3 + a 3 s ' + a 4 s + a 5 ) 

ただし 、 a ,=39.71067 

a 2 = -76. 57498 
a 3 =8 1.60223 
a 4 = -41.34167 
a 5 =2 tt 

これらは、最良近似多項式の係数ですが、ほぼ Taylor 展開に一致します。 

② COS U ) 

COS ( x ) = SIN ( y - x ) 

③ 丁 AN ( x ) 

TAN(x) = SIN(x)/COS (x) 

④ ATN ( x ) 

もし、 

x <0 のとき u — x ， ATN ( x ) = - ATN ( u ) 

0 のとき u — x , ATN ( x)=ATN ( u ) 

もし、 

u < 1 のとき v — u ， ATN ( u ) = ATN ( v ) 

1 のとき v — ATN ( u ) = y - ATN ( v ) 

S — V 2 

ATN ( v ) = v X ( a 丨 s + a 2 s 7 + a 3 s “ + a 4 s 3 + a 5 s 1 + a 6 s 3 + a 7 s 2 + a 8 s + a 9 ) 
ただし 、 a , =2.866226 X 10~ 3 

a 2 = —1.616574 X 10— 2 
a 3 =4.290961 Xl 0~ 2 
a 4 =_7. 528964 X 10— 2 
a 5 =0.1065626 
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a 6 =-0.1420890 
a 7 = 0. 1999355 
a 8 = — 0. 3333315 
a 9 =1 


図 15 -E 三角関数の求値法 


15-10モニタで他の ROM を見る方法 


モニタでは普通 N 『 BASIC インタプリタ ROM しか読めませんが、内部的には他の ROM 
も読めるようになっています。この切り換えスイッチは F 1 E 1 H 番地で、ここに、0，1， 

3のどれかを入れて ROM を選択します。 


0 …… Nas-BASIC ROM 

1…… N-BASIC ROM 
3 •••••• 4 th ROM#l 


15-11 モニタでテキスト RAM を見る方法 


上の3種類の ROM の内容を読むルーチンは RAM 上にあります。ですからそのルーチン 
を書き換えるとテキスト RAM の内容を読むこともできます。ここでは 4 thROM 用のルーチ 
ンを書き換えてみます。このプログラムを実行してみてください。 

100 ’ 

110 ’ read text ram in monitor 
120 ， 

130 DEFINT A - Z 
140 AD=&HF2C0 
150 f 

160 FOR I=AD TO AD+&H2E 

170 READ D$ : POKE I,VA し（ ” &H”+DS) 

180 NEXT 
190 , 

200 SLAD=AD+&H23 : P=VARPTR (SLAD) 

210 POKE AD+2,PEEK (P) : POKE AD+3,PEEK (P+1) 

220 P=VARPTR(AD) 

230 MONH=&HE66C : POKE MONH,&HC3 

240 POKE MONH+1,PEEK (P) : POKE MONH + 2,PEEK (P+1) 

250 END 
260 ? 

270 DATA FI,21,23,D0,11,A0,FI,01,0C, 00, ED,B0,3E, 03,32,El 
280 DATA FI, 3E,48, 32, CE, FI,AF, 32,CF,FI, 32, F4, FI, 32, DE,FI 
290 DATA C3,43,60,F3,3A,C2,E6,F6,02,D3,31,7E,C3,6C,FI 

機械語プログラムは F 2 C 0 H 番地から格納されますが、別の場所がよいときには140行を書 

き換えてくださし''。このプログラムでは、モニタにはいるときにモニタの 4 thROM を読むルー 

チンを自動的に書き換えるルーチンを付け加えます。また、自動的に F 1 E 1 H 番地に3を入れ 
る機能もあります。モニタにはいって〇番地あたりを読んでみてください。たしかにテキス 
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卜 RAM が読まれていますね。なおこの機能を止めるときには POKE & HE 66 C ，& HC 9 とし 
てください。 


15-12 1/ 4角文字のフォントスペアとユーザー定義キャラクタ 

旧 PC - 8801の NtBASIC Verl . 1以上では、漢字 ROM がなくても JIS コード 100 H -17 FH の 
1/4角文字をコード 200 H -27 FH として 、 PUT KANJI 文で出すことができました。この機 
能は PC -8801 mkII では漢字 ROM が初めからっいていますので必要ないのですが、互換性の 
ためか残っています。ちょっとやってみましょう。 

10 SCREEN 0,0 

20 FOR CODE=&H 200 TO &H2FF 
30 PX=CCODE AND &H1F) ポ 16 
40 PY= ( (CODE AMD 255) ¥ 32) ホ 16 
50 PUT® (PX,PY), KANJI (CODE), PSKT 
60 NEXT 

これを実行すると、画面に 1/4 角文字が出力されます。でも形が少し違いますね。何か 
に使えるかもしれません。ところで下半分には変なものが PUT されています。これはコー 
ド 280 H -2 FFH に対応する文字です。なぜこんなものが出るのでしょうか。 

これらの1/ 4角文字のフォントは N-BASIC ROM のアドレス 7 B 00 H -7 EFFH にコード 
200 H -27 FH の128文字分 （ 1文字8バイト）用意されています。ですから、コード 
280 H -2 FFH を指定すると、この後のアドレス 7 F 00 H -82 FFH の内容が文字フォントとして 
使われてしまったわけです。 

さて、漢字フォントを読み出すときは一時的にメモリを N - BASIC モードに切り換えてか 
ら読み出します。ですからアドレス 8 CK 30 H -82 FFH はウインドウではなくて RAM です。し 
かもそのアドレスのメモリは N - BASIC では使っていません。したがってここに文字のフォ 
ントデータを作っておけば 、 PUT KANJI 文で出力できます。ユーザー定義キャラクタと言っ 
てよいかもしれません。計算してみると、アドレス800 0 H はコード 2 A 0 H にあたりますから、 
2 A 0 H -2 FFH の96文字に定義できます。 

フォン トデータをモニタで書き込むときは、ポート 70 H に 80 H を OUT すると、800 0 H から 
の RAM そのものに書き込むことができます。 フォン トとデータとの対応は次のようになっ 
ています。 


フオント 


MSB し SB 



匚❼ 

• 

• 

• 




• 








• 







1 









iT 








V 





V 




# 


• 

# 








— 


アドレス 
(コー ド 2A0H のとき ) 

8000 H 
800 1H 
8002 H 
8003 H 
8004 H 
8005 H 
8006 H 
8007 H 


図 15 - F フォン トと データとの 対応 
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15-13 N - BASIC モードから N 88- BASIC モードへ 


N ^ BASIC モードから N - BASIC モードへは NEW ON 1で切り換えられますが、逆の働 
きをする コマン ドはありません。そこで N - BASIC モードから Nss - BASIC モードへソフトで 

移る方法を紹介しましょう。 

(1) ディップスイッチが N 88- BASIC モードのとき 

これは簡単でたいてい OUT & H 31, 0だけですみます。これはポート 31 H に0を出力す 
ると ROM が N - BASIC に切り換わるからです。 ROM を切り換えただけなので当然暴走し 
ますが、暴走するとほとんどの場合リセットがかかるので N - BASIC が起動するというわ 
けです。確実に切り換えようとするなら (2) の機械語プログラムをつかいます。 

(2) ディップスイッチが N - BASIC モードのとき 

この場合は ROM を切り換えるだけではすみません。なぜなら一旦 N 『 BASIC モードに 
なっても、その起動ルーチンでデイップスイッチが N - BASIC モードになっているのを読み 
取り、 N - BASIC モードに切り換えてしまうからです。そこでそのルーチンをうまくごまか 
さなくてはなりません。 


F 3 


DI 


AF 


X 〇 R 

A 

D 3 

31 

OUT 

(31 H ), A 

DB 

30 

IN 

A , (30 H ) 

F 6 

03 

OR 

3 

C 3 

FD 77 

JP 

77 FDH 


このプログラムを使うとディップスイッチの位置にかかわりなく Nss - BASIC モードに切 
り換わります。このプログラムを適当な場所（空いている場所ならどこでもよし”に書き込ん 
で実行させると N - BASIC に切り換わります0 
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C000 21 00 00 
C008 60 ED B0 
0010 D3 E2 C3 


*GC000 


15-14 N - BASIC でフリーエリアを 7. 5 K 増やす 

N - BASIC モードでは、テキスト RAM は使われていません。そこで、この余っている 
RAM をつかって N - BASIC モードでのフリ ー エリアを増やす方法を考えてみましょう。 

PC - 8001の場合は次のプログラムで簡単に行えましたが、 PC - 8801 mk fl では、600 0 H 番 
地以降にも N - BASIC インタプリタの一部が置かれているため、このままでは使えません。 

( PC - 8001 + PC -8011 の場合） 


PC - 8801の N - BASIC インタフリタの拡張部分は、約280バイトです （ N - BASICVerl . l の 


場合)。 

そこで、右の図にあるように、この拡張部分 
を、600 0 H 番地から、 61 FFH 番地の間へリロ 
ケートすることにより、620 0 H 番地から 6 FFF 
H # 地までの 7.5 K バイトをフリーエリアとして 
使えるようにします。次に示すブログラムはこ 
の処理を行なうものです。 



図 N - BASIC のフリーエリア 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

f 


RESTORE 270 

FOR I=&H6000 TO &H611F 

READ DAS : POKE I,VAL C +DAS) 

NEXT I 


POKE &H84,&HCD 
POKE &H85,&H46 
POKE &H9FA,&HD5 
POKE &HB18,&HCD 
POKE &HB19,&H3F 
POKE &HFD9,&H 68 
POKE &HFEC,&H 86 
POKE &H1710, &HF 
POKE &H179F,&H61 
POKE &H17F9, &H 6 
POKE &H187E, &H 6 

POKE &H1880, &H 6 

POKE &H17DA,&HG2 
POKE &H1850,&H33 

f 

DEF USR=&HFF5C : 

f 

END 


: POKE &H86,&H60 
: POKE &H9FB,&H60 

POKE &HB1A,&H60 
POKE &HFDA,&H60 
POKE &HFED,&H60 
POKE &H1711,&H61 

POKE &H17A0,&H60 
POKE &H17FA,&H61 
POKE &H187F,&H61 

POKE &H1881, &H61 


DM=USR(0) 


570 

580 

590 

B00 

G10 

620 

630 


100 ^ 

110 ， - PC-8801mkII 〔 N - BASIC MODE +7. 5K 〕 - 

120 * 

130 RESTORE 190 

140 FOR I=&HFF50 TO &HFF62 

150 READ DAS : POKE I, VAL C +DAS) 

160 NEXT I 

170 DEF USR=&HFF50 : DM=USR(0) 

190 DATA 21,00,00,11,^0,00,01,00,60,ED,B0,C3,3E,02,D3,31 
200 DATA C3,00,00 


N - BASIC でのこのプログラムを実行すると、リセットがかかって、次の画面が表不され 
ます。 


F00D9B2D0DE9F00FD0 

A10C2ECE0CFCE426C0 

1ED9D 52260403 B2890 
0FCCC53C 00022 D09C0 

30F11A92FF8E296BB0 
8F0F 9373423 E30E8F0 

D685E0F30D11 000710 
CE2F36E0626F824BF0 

FFB11 12070 E460B940 
E2F 0122240 F0E4D0E0 

E1E38D1F10A0A51C30 
30F82C 292002093 FD0 

19DD71A15D87BD33A0 
0EECB 000113 ADCDCE0 

3D91DCEE8FBF0A2A50 

8CCFE70F315E100E50 

D1A17DA809E308E7A0 
C030CC0750F 2863630 

735CAFF0E9CA211A50 

08F73AC1FC03C113F0 

EDFD9D 360785952180 
3CACCEC61A3FBD2D30 

11170 BF 28819 A0E937 
0 001CCEC5C4C 013171 

CE8E 022037 E7E9363B 
7 3130326 C3FA 380593 

D1FA1423A 782930493 
C 000103 CEAD0CC 298 C 

B 3E00EFD6E0 87F21F6 
0 83263 AC7713A 70151 


3E 


D 90529 D191B16648 
CC620CE20A7F1E05 


2 

0 


0 0 000 0 0 00000000000000000000000000000 
12 3456789012345678901234567890123456 
22 2222222333333333344444444445555555 
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NEC PC -8001 BASIC Ver 1. 3 
Copytight 1979 (C) by Microsoft 


Ok 

フリーエリアの大きさを見てみましょう。 


print f r e (0) 

34466 

Ok 

確かに、 7.5 K バイト増えていまね。 

この例はディスクがない場合ですが、 DISK - BASIC であってもこのまま使うことができ 
ます。ドライブ1にシステムディスクをセットしてこのプログラムを実行して下さい。 

Two surface disk vers ion 〔 20_Sep - 1981 〕 

How many files (0- 15)? 3 
NEC PC -8001 BASIC Ver 1.3 
Copyright 1979 (C) by Microsoft 

Ok 

print f re (0) 

27029 

Ok 

これで大きなプログラムも DISK - BASIC で走らせることができるようになります。 

《注意》 

•このモードでは、 N - BASIC インタプリタが RAM 上にあります。もし、この部分が破壊 
されたりすると暴走する危険がありますので注意して下さい。 

• リセット ボタンを押すと（ホッ ト スター ト も含む）もとの ROM バージョ ンの N - BASIC に 
戻ってしまいます。このモードのままで リセット したい場合（新たに DOS を読み込むときな 
ど）は、モニタモードで G 00を実行して下さい。 


15-15 ドライブ2を片面として使う 

旧 PC - 8801では片面ドライブ （ PC -8031) を接続することができました。 PC -8801 mklI で 
は接続することはできませんが内蔵ドライブを片面ドライブとして扱うことができます。こ 
れはサブシステムには片面モードというのがあり、 PC -8031 と同じ動作をするようにでき 
るからです。そこで、 N - BASIC のワークエリアを操作して、 PC -8031 が接続されている 
ようにみせかければ片面ディスクも扱えるようになるわけです。 

まずドライブ2を片面モードにします。次のプログラムを実行してください。サブシステ 
ムとハンドシェークを行なって（第10章サブシステム参照）コマンドを送っています。 

100 ’ 

110 ’ set single serface mode 
120 f 
130 1 

140 PA=&HFC : PB=&HFD: PC=&HFE: CW=&HFF 
150 1 

160 A=&H17 : GOSUB 木〇 UT.CMD 
170 A=&HD : GOSUB 木〇 UT. DAT 
180 • 
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250 

260 

270 

280 

290 

300 


END 

9 

WUT- CMD 
OUT CW,15 
WUT. DAT 

IF (INP (PC) AND 2)=0 THEN 240 

OUT CW,14 

OUT PB,A: 〇 UT CW, 9 

IF (INP CPC) AND 4)=0 THEN 270 

OUT CW,8 

IF INP (PC) AND 4 THEN 290 
RETURN 


次に、ワークエリアのドライブタイフ対応表を操作して、片面ディスクが接続されている 
ようにみせかけます。 

poke &He f 64+peek(&He f 60)+peek (&He f 61)+1,2 

もちろんこの 2 つは一つのプログラムにしてかまいません。これでドライブ2が片面ドラ 
イブになりました。ドライブ1は両面のままです。ドライブ2に片面ディスク （ PC - 6001 mk 
II のディスクなど）を入れて使用できます。またこの方法は PC -8801 + PC -80 S 31 でも使え 
ます。頻繁に両面/片面の切り換え行なう場合は、 「10-4-2( P 215 )」に、同じことを機械語 
で行ない、末使用コマンド （ ISET ) を使って自由に切り換えられるようにした ユー ティリ 
ティがありますので、そちらを参照して下さい。 


15-16 音階をだす方法 

PC -8801 mkII では拡張命令の CMD SING でメロディーを出すことができます。これは内 
蔵のスピーカーを目的の周波数で振動させることによって実現しています。このことについ 
て説明するまえに、 PC -8801 mk II でスピーカーを制御する2つの方法を説明しておきます。 

まず最初は旧 PC -8801 と同じ方法で、 BEEP 文が使っています。 PC -8801 mkII は24 ⑻ Hz 
の音源を持っていて、これを OUT 命令でスピーカーにつなぐと24⑻ Hz の音がでます。この 
制御には I /〇ボート 40 H のビット5を用います。 

ポート40 H ( OUT ) N88-BASIC のワークエリア： E6C1H 番地 


7 

6 

5 

4 

3 

2 

1 

0 

UP 02 


BEEP 







他のビットも使っています 


図 15- G BEEP の芾 IJ 御 

このビットを1にすると2400 Hz の音がでます。ちょっとやってみましょう。ボート 40 H の 
他のビットを変更してはいけませんから、ワークエリア （ E 6 C 1 H 番地）を参照して他のビッ 
卜の値を得ます。 


0 0 0 0 0 0 
9 0 12 3 4 
12 2 2 2 2 
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10 A=PEEK(&HE6C1) OR &H20 
20 POKE &HE6C1,A 
30 OUT &H40,A 


，ビット 5 を 1 にする 
，ワークエリアをセッ トする 
’ポートに OUT して音を出す 


これは BEEP 1と同じですから、音を止めるときには BEEP 0とします。 

次に CMD SING で使用している方法を説明します。これは同じポート 40 H のビット7で 
制御します。今度は特別な音源は持たず、周波数はソフトで決定します。つまり、このビッ 
卜がスピーカーに直接つながっていて、このビットをたとえば600 Hz で ON / OFF すると、 
600 Hz の音がでるというわけです。 

10 A=PEEKC&HE6C1) 

20 A=A OR &H80 

30 POKE &HE6C1，A : OUT &H40, A 
40 A=A AND &H7F 

50 POKE &HE6C1.A : OUT &H40；A 
60 GOTO 20 

これは BASIC で書いた例ですのであまり高い音はでません。また、機械語で行なう場合も、 
DMA や割り込みを止めないと、正確に一定の周波数の音が出せませんから、濁った音にな 
ります。なお、機械語で、割り込みをとめた状態で■音をだすときには、いちいち E 6 C 1 H 番 
地に OUT する値を書き込む必要はありません。 

15-17 旧 PO 8801 で CMD SING を 


:’現在のポート 40 H の状態を得る 
:’ビット7を1にする 

:’ビット7を0にする 


旧 PC -8801 で CMD SING を使うためには、市販されている mk 1] サウンド基板を購入すれ 
ば拡張命令パッケージ以外のソフトにも対応できる（ただし8801と 8801 mk II で音を変えてい 
るソフトでは ROM を読んで区別していますから、8801用の音しかでません）のですが、 
CMD SING で音を出すだけであれば、 

POKE&HDEE 1, & H 20 

とすればかなり濁った音ですが一応音を出すことができます。これは CMD SING で使うサ 
ウンドボート（ポート 30 H ビット7 ) をビット5 ( BEEP のポート）に変更したのです。 

15-18 未使用命令を使う（ユーザー拡張命令） 

BASIC から機械語ルーチンを呼ぶ場合、 USR 関数や CALL 文を用いますが、 USR 関数は 
引き数が1個しか使えない、 CALL 文は引き数として変数しか使えない、値を返す機能が 
なし、（変数を介し値を返すことはできますが）ため式の中で使えない、などの欠点があり、 
BASIC プログラム中で記述する時に必ずしも使いやすくありません。そこで他の BASIC の 
命令と同じ簡便さで機械語ルーチンを呼ぶためのユーザー拡張命令の作り方を紹介します。 

これは USR 関数. CALL 文に比べて作り方が難しくなっています。 BASIC で簡単に使え 
るようになった分のしわ寄せが機械語にきたわけですが、一旦ルーチンを作ってしまえばあ 
とはブラックボックスとして使えばよいわけですから、よりいっそう BASIC プログラムに 
専念できます。 

中間言語の所で述べたとおり、 N 88 - DISK - BASIC では使用されていないキーワ ー ド （ SR 0, 
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WBYTE , RBYTE , POLL , ISET , IEEE , IRESET , STATUS の 8 コ）が’あります。 
これらはもともと IEEE インターフェース制御用として用意された命令なのですが、通常の 
N 88 - DISK - BASIC ではサボートされていないため空きになっているわけで、 SRQ を除く 7つ 
は、ユーザー独自の命令用のキーワードとして使えます。っまりユーザーが作成した機械語 
ルーチンを他の BASIC 命令とまったく同じに使用することができるようになるわけです。 
ここではその方法を説明します。本書のあちこちに出て来る 「 POLL 文」もこの方法によっ 
て作られていますし、 Nss - BASIC にある「拡張命令」 （ CMD シリーズ）も CMD というキーワ ー 
ドを使って同じ方法によって実現されています。 


15-18-1 ステ ー トメントの作り方 

ステートメントとして使用できるキーワードは、 WBYTE , RBYTE , POLL , ISET , 
IRESET ， STATUS の6っです。 

ステ ー トメント用機械語ルーチンは次のような流れで作ります。 

① 引き数を評価してレジスタやメモリにしまう。 

② テキストボインタ （ HL レジスタ）を保存する。 

③ 目的とする処理を行なう。 

④ テキストポインタ （ HL レジスタ）を戻し、 RET する。 

このうち①の引き数の評価をするというのはけっこう面倒です。これを簡単に実現するた 
めにいくつかの ROM 内ルーチンやワークエリアを使用します。これらは非常に便利な機能 
で、独自のステートメントを作る際にはほとんど必須といえるものですから、是非使い方を 
マスター して下さい。 

15-18-2 引き数の評価に使用するルーチン、ワークエリア、レジスタ 
( 1 ) 浮動/ J ゝ数点アキュムレータ （ FAC ) 

FAC は BASIC インタプリタのアキュムレータで、すべての計算はここを中心にして行な 
われます。 FAC は次のような構成になっています。 


整数型 • 文字型 


単精度実数型 


EC 41 H 

EC 42 H 

EC 43 H 

EC 44 H 


下位バイト 


上位バイト 


文字型の場合はディ 
スクリブタのある番 
地を指す 


仮数部下位バイト 
仮数部中位バイト 

W W MB MIV CIV W ■ 

仮数部上位バイト 
指数部1バイト 


EABDH 番地の値 


2 :整数型 

3 :文字型 


4 


倍精度実数型 


EC 3 DH 
EC 3 EH 
EC 3 FH 
EC 40 H 
EC 41 H 
EC 42 H 
EC 43 H 
EC 44 H 


仮数部最下位バイト 









N 

仮数部最」 

二位バイト 

指数部1バイト 


8 


図15 - H FAC 
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各バイトの意味は「15-8 数値の内部表現」を見て下さい。 


(2) HL レジスタ……テキストポインタ 

〇 AR (ポート 70 H ) とともに BASIC プログラム（テキスト）中を指し、現在どこを実行して 
いるかを示します。 OAR がテキスト中の1 K バイトのブロックをウィンドウ （80 ⑻ H 〜 
83 FFH ) に移し、 HL レジスタがウィンドウ内のアドレス （8000 H 〜 83 FFH ) を持っています。 
ダイレクトモードの時にはワークエリア内の中間言語バッファ （ E 87 AH 〜 E 9 B 7 H ) を HL レ 
ジスタが直接指し、 OAR は無関係になります。このテキストポインタは単語ゲットや評価 
などのルーチンの入力条件となります。 

(3) 44 D 5 H ……ウィンドウ内アドレス—実アドレスへの変換 

HL に入っているウィンドウ内アドレスと OAR (ポート 70 H ) の値から HL の示す実アドレ 
ス （0 ⑻〇〜 7 FFFH ) を計算して HU こ入れます0 HL レジスタ以外のレジスタ、フラグは変 
化しません。 

<例> 

HL レジスタ =8043 H 
OAR =10 H 

のとき 、 CALL 44 D 5 H を実行すると 
(8043 H - 8000 H ) +1000 H = 1043 H ですから 
HL レジスタ =1043 H となります。 

(4) 44 A 4 H …実アドレス—ウィンドウ内アドレスへの変換 

(3) と逆のことを行ないます。同時に OAR を設定しなおします。 HL レジスタ以外のレジス 
夕、フラグは変化しません。 

<例> 

HL レジスタ =32 A 4 H とじ TCALL 44 A 4 II を実行すると 

HL レジスタ =80 A 8 H (8000 H + A 8 H ) 

OAR =32 H となります。 

(5) RST 10 H ……単語ゲット 

これは最も重要なルーチンです。テキストから1文字または数を読み込みます。 HL が指 
す所の次の文字（または数 ） を読みます。 
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< 例 > 

A $ = CHR $(68) というテキストはメモリ中では、 

4124 FIFF 96 28 OF 44 29となっています。 

t t t 

A B C 

a ) HL レジスタが A を指しているとき RST 10 H を実行すると、 

A レジスタ =2 4 H (「$」） 

HL レジスタ ニ B のアドレス 

となります。 

b ) HL レジスタが C を指しているとき RST 10 H を実行すると、 

A レジスタ =0 FH ( 1バイト整数を表わす ID ) 

HL レジスタ = E 69 CH 

EAC 4, 5 = 0044 H (逆順に入っている） 

となります。 E 69 CH , EAC 4 H については後で説明します。 


RST 10 H の働きをまとめると下図のようになります。 



t Nabcdef gh E 69 C # 1 p 


図 15- 丨 RST 10 H 

HL は N の前を指していたとして、 RST 10 H を行なうと結果がどうなるか示します。表中 
にある EAC 4 H 番地〜 EACBH 番地は RST 10 H の FAC ともいえるもので、数を読んだ時にそ 
の数の値を格納します。その型は、 EAC 3 H 番地に入っています。 

Carry というのはキヤリーフラグのことで、数字（ア スキーコー ド 30 H 〜 39 H ) を読んだ 時 
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にのみ立ちます。 

ゼロフラグは00と 3 A(r :」）のとき、つまり、文末を読んだ時に立ちます。（ただし、” ” 
の中、 DATA の中などの：のときにも立ちます。） 

今度は N の欄を見て下さい。 N が9， A ， 20のときは INC HL をして RST 10 H をやりな 
おします。つまりこの3種の文字はスキップされるわけです。 

N が、10，1 E というのは特別なものです。通常のテキストの中には現われません。これ 
らは数を読んだ後で使用されます。数を読むと HL の値は E 69 CH になり、テキストポインタ 
の値は EACO ，1 H 番地にしまわれます。ここで RST 10 H を行なうと、 E 69 CH 番地の次には 
10 H が入っていますから、これに従って EACO ，1 H 番地からテキストポインタを得 、 RST 
10 H をやり直します。 

なぜこのような面倒くさいことが行なわれているのかというと、「読み直し」のためです。 
数以外のものを読んだ時にはテキストボインタは1つしか進みませんから、 DECHL を行 
なって RST 10 H と行なうと同じものが読み直せます。ところが数の場合には2つ以上進みま 
すから、いくつもどせばよいかわかりません。そこで数を読んだ場合でも DEC HL をして 
RST 10 H を行なうと読み直しができるように用意されたものが1 E ， 10なのです。 

数を読んだ後で DEC HL を行なうと HL の値は E 69 BH になります。そこで RST 10 H を行 
なうと、 E 69 CH の内容は 1 E ですから Acc ， フラグがセットされ、 HL は E 69 CH となります。 
RST 10 H 用の FAC はそのままです。つまり初めて数を読んだ時と同じ状態になっているわ 
けです。 


(6)11 D 3 H …… 式の評価 

式の値を計算して FAC に入れます。このルーチンを使って引き数を計算するわけです。 
次のようにして使います。 

① 式の前を HL で指す 

② RST 10 H を行なう 

③ CALL 11 D 3 H を fi 1 なう 

こうすると式の値が FAC に入り、 HL は式の次の文字を指して、もどってきます。ただし、 
式にエラーがあるとエラーを出力して BASIC コマン ド待ち（または〇 N ERROR GOTO の 
場所）に行ってしまいます。すべてのレジスタが変化します。 

⑺ 1796 H …… FAC の型変換 

FAC を Acc で示される型に変換します。できない場合にはエラーが出力されます。型に 
対応する値は ( l ) FAC を見て下さい。すべてのレジスタが変化すると考えた方がよいでしよ 
う。 


(8)03 B 3 H ……エラー出力 

E レジスタに エラー コー ドを入れて 3 B 3 H にジャンプすると対応する エラー メッ セージを 
出力して BASIC コマンド待ちにもどります 。 （ON ERROR GOTO がかかっている時にはそ 
の場所から実行がはじまります。）引数がまちがっている時などに使います。ジャンプする時 
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のスタックレベルは気にする必要はありません。 


(9)56 CCH ……ストリングスタックの POP 

文字型の引き数を評価した場合、その文字列のディスクリプタはストリング用のスタック 
に入れられます。これはそのステートメントの処理が終わるまでに POP しておかないとい 
けません。そうしないと、その文を10回ぐらい実行した所で String formula too complex エ 
ラーが出ます。つまり、スタックがオーバーフローしたということです。このルーチンを呼 
ぶとスタックを POP してくれるだけでなく、そのストリングのエリアをフリーエリアに戻 
し、ディスクリプタのアドレスを HL に入れてくれます。ただし、これを行なった後別の文 
字列を処理すると、この文字列は消滅します。 


15-18-3 ステートメントのイニシャライズ 

未使用のキーワードをステートメントとして使用するためにはそのステートメントが実行 
された時に、用意された機械語ルーチンへ飛ぶように変更しなければなりません。そうしな 
いと Feature not available エラーが出ます。 

ステートメントが実行されると、各ステ ー トメントにより決まったアドレスへジャンプし 
ます。未使用ステートメントの場合は次の場所です。 

WBYTE •••• EEA 1 H 
RBYTE •.… EEA 4 H 

POL し . EEA 7 H 

ISET . EEAAH 

IRESET ..… EEADH 
STATUS •… EEBO H 

これらのアドレスには通常 JP 4 DC 1 H という命令が入っていて、これらのステートメント 
か実 fr されると 4 DC 1番地へ f 了きます 0 4 DC 1 H へジャンプすると Feature not available エ 
ラーが出るようになっています。見ればわかるとおり、これらのアドレスは RAM 上にあり 
ます。したがってここに入っている JP 4 DC 1 H を書き換えて用意したルーチンへ飛ばせばよ 
いわけです。このように拡張のために処理の一部を飛び出させる（ここではワークエリアの 
中においている）のをフック （ HOOK ) といいます。 

では、ちよっとやってみましよう。用意されたルーチンの絶好の例として ROM 内のルー 
チンを使います。すでにあるステートメントのルーチンを使うわけです。ここでは PRINT 
文を使ってみましよう。 PRINT 文のアドレスは 0 E 54 H です。 POLL 文のフックアドレスは 
EEA 7 H ですから、ここに JP 0 E 54 H を入れます。 


h〕s e e a / 

EEA7 C3 - Cl 一 54 4D - 0e 
h〕 A b 

Ok 
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これで POLL 文が PRINT 文と同じ働きをするようになりました。 POLL 1+ 2とか 
POLL 3 * SIN (0.5) とかやってみて下さい 。 POLL USING だって使えますよ。 

15-18-4 ステートメント作成例 

以上述べてきたルーチンを用いてステートメントを作るわけですが、これらは基本的な 
ルーチンで、他にも便利なルーチンがまだまだあります。それらについては「17-1-1 
NtBASIC インタプリタ」を見て下さい。特にゴシックの部分に重要なものがあります。 

さて、ここでは簡単な例として画面 POKE 命令を作ってみましょう。テキスト画面の（0, 
0 ) からの相対アドレスにデータを POKE する命令です。まず書式を決めます。 

書式 P 0 LLC 相対アドレス >、< データ> 


<相対アドレス〉、<データ〉とも整数型とします。今回は範囲のチェックはしません。 
<データ>は整数型の下位バイトを用いることにします。 


まず引数の評価はこうなります。 


SPOKE : CALL 

11 D 3 H 

:最初はすでに RST 10 H は行なわれています。 

PUSH 

HL 


LD 

A , 2 


CALL 

1796 H 

; FAC を整数型にします。 

POP 

HL 


LD 

DE , (0 EC 41 H ) 

; DE — FAC します。 

PUSH 

DE 


し D 

A , ( HL ) 

;<相対アドレス〉の次の文字をとり出します。 

CP 

y y 

y 

;コンマかどうか確かめます。 

JR 

NZ , ERROR 

;もし違ったらエラ-です。 

RST 

10 H 


CALL 

11 D 3 H 

;<データ > を計算します。 

PUSH 

HL 

;テキストボインタをセーブします0 

LD 

A , 2 


CALL 

1796 H 

; FAC を整数型にします。 

POP 

HL 

;いちおうテキストボインタをもどします。 

し D 

A , (0 EC 41 H ) 

; FAC の下位バイトをとり出します。 

POP 

DE 

;<相対アドレス〉をもどします。 

< 相対アドレス > は DEC 

、くデータ > は Acc に入っています。残りの部分は簡単です。 

PUSH 

HL 

;テキストボインタをセーブします。 

LD 

HL , (0 E 6 C 4 H ) 

; VRAM のアドレスです。 

ADD 

HL , DE 

; HL に絶対ァドレスを得ます。 

LD 

( HL ), A 

; VRAM に書き込みます。 
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POP 

HL 

; テキストボインタをもどします。 

RET 


;処理を終わります。 

ERROR : 


;エラールーチンです。 

LD 

E , 2 

;Syntax error にします。 

JP 

03 B 3 H 

;エラー出力します。 


一応、これらをまとめれば完成です。アセンブルリストを出すと次のようになります。こ 
のルーチンはリロケータブルでどこからおいてもかまいません。 


1 1D3 

EVAL: EQU 

11D3H 

1796 

CNVTYP:EQU 

1796H 

03B3 

ERROUT:EQU 

03B3H 

E6C4 

VRAMTP:EQU 

0E6C4H 

EC41 

FAC: EQU 

0EC41H 


0000 


SPOKE: 



0000 

CDD311 


CALL 

EVA し 

0003 

E5 


PUSH 

HL 

0004 

3E02 


LD 

A, 2 

0006 

CD9617 


CALL 

CNVTYP 

0009 

El 


POP 

HI 

000A 

ED5B41EC 


LD 

DE, (FAC) 

000E 

D5 


PUSH 

DE 

000F 

7E 


ID 

A, (H し） 

0010 

FE2C 


CP 

9 9 

f 

0012 

2017 


JR 

NZ,ERROR 

0014 

D7 


RST 

10H 

0015 

CDD311 


CALL 

EVAL 

0018 

E5 


PUSH 

HL 

0019 

3E02 


LD 

A, 2 

001B 

CD9617 


CALL 

CNVTYP 

001E 

El 


POP 

HL 

001F 

3A41EC 


LD 

A, (FAC) 

0022 

D1 


POP 

DE 

0023 

E5 


PUSH 

HL 

0024 

2AC4E6 


LD 

HL, (VRAMTP) 

0027 

19 


ADD 

HL, DE 

0028 

77 


LD 

(HL) ， A 

0029 

El 


POP 

HL 

002A 

C9 


RET 


002B 

1E02 

ERROR : 

し D 

E, 2 

002D 

C 38303 


JP 

ERROUT 

0030 



END 



実はこのルーチンには多くのムダがあります。 ROM ルーチンを有効に使えばもっと短く 
なります。「第17章ソフトウヱア解析」や「付録1マシン語ルーチンソースリスト」を 
見て研究して下さい。自分で ROM ルーチンのデイスアセンブルリストを読んでみるのもた 
いへん参考になります。特に短かそうなステートメント （ POKE , BEEP , MOTOR など) 
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から読むのがよいでしょう。 

さてルーチンは用意できましたからこれをステートメントにしましょう。まず、ルーチン 
を入力します。一応 F 220 H 番地から置くことにします。入力しやすいようにダンプリスト 
をあげます。 

F220 CD D3 11 E5 3E 02 CD 9617 El ED 5B 41 EC D5 7E 

F230 FE 2C 20 17 D7 CD D311 E5 3E 02 CD 9617 El3A 

F240 41 EC D1 E5 2A C4 E619 77 El C9IE 02 C3 B3 03 

次にフックを書き換えます。 

mon 

h〕s e e a / 

EEA7 C3 - Cl - 20 4D_f2 
h〕 A b 
Ok 

これで POLL ステ ー トメントができました。 

POLL 0， & H 40 

とすると画面の左上すみに 「 A 」 が現れます。 

このステートメントを改良して POLL < X 座標>， < Y 座標>，くデータ > という書式 
にして、パラメータの範囲チェックをつけると実際に利用できるステートメントができあが 
るでしょう。 

15-18-5 関数の作り方 

関数として使える中間言語は、 IEEE , STATUS の2っです。これらの関数を作るとき 
もステートメントを作る時とほぼ同じです。ただし、関数ですから、値を返さなければなり 
ません。値は FAC にセットします。したがって関数用機械語ルーチンは次のような流れに 
なります。 

① 引き数を評価してレジスタやメモリにしまう。 

② テキストボインタを保存する。 

③ その関数の処理を行なう。 

④ 結果を FAC にセットする。 

⑤ テキストポインタをもどし、 RET する。 

この2つの関数のフツクアドレスはこうなっています。 

IEEE . EEB 9 H 

STATUS - EEB 3 H 

15-18-6 関数作成の例 

ではさっそく関数を作ってみましょう。テキスト画面上の位置を指定すると、その場所の 
アトリビュートコードを返す関数を考えてます（アトリビュートコードにっぃては P .81 をごらん下さぃ)。画 

面は80 x 25のモードのみを考えます。 
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書式 STATUS (<X 座標 >， <Y 座標 >) 

まず、引き数の評価をします。最初は、すでに RST10H が行なわれています。 


GETATR : 


LD 

A, (HL) ; 最初の文字を読みます。 

CP 

，(’ 


JR 

NZ，ERROR 

でなければ エラー です。 

RST 

10H 


CALL 

11D3H 

;<X 座標 >を計算します。 

PUSH 

HL 


LD 

A, 2 


CALL 

1796H 

: FAC を整数型に変換します。 

LD 

HL, (0EC41H) 


EX 

(SP), HL 

;FAC を PUSH し、テキストポインタを取り 



出します。 

LD 

A, (HL) 

:次の文字が’，’であることを確かめます。 

CP 



JR 

NZ，ERROR 


RST 

10H 


CALL 

11D3H 

;<Y 座標 >を計算します。 

PUSH 

HL 


LD 

A, 2 


CALL 

1796H 

: FAC を整数型に変換します。 

LD 

HL, (0EC41H) 


EX 

(SP), HL 

;FAC を PUSH し、テキストポインタを取り 



出します。 

LD 

A, (HL) 


CP 

，)’ 


JR 

NZ, ERROR 

最後の文字が’）’でないとエラーです。 

RST 

10H 

次の文字まで RST10H しておきます。 

POP 

DE : 

<Y 座標>を POP します。 

POP 

BC : 

<X 座標>を POP します。 

LD 

D, C : 

D レジスタにく X 座標>を移します。 


これで、 D レジスタに X 座標、 E レジスタに Y 座標が入りました。さて、指定した場所の 
アトリビュートコードをとってくる方法ですが、これには便利な ROM ルーチンがあります。 
4472H 番地です。 H，L レジスタにそれぞれ X 座標+ 1 、 Y 座標+ 1 を入れてここを CALL す 
ると、 B レジスタにその場所のキヤラクタコード、 C レジスタにアトリビュートコードを入 
れてもどってきてくれます。これを使って残りの部分を書くとこうなります。 
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CALL 

LD 

EX 

LD 

CP 

JR 

RST 


CALL 


A, (HL) 

1 ( f 

NZ,ERROR 

10H 

EVAL 

HI 

A, 2 

CNVTYP 

HI, (FAC) 

(SP) , HL 

A, (HL) 

» » 

NZ,ERROR 

10H 

EVAL 

HL 

A, 2 

CNVTYP 
H し， （ FAC) 

(SP),HL 
A, (HL) 
f ) * 

NZ,ERROR 
10H 


03B3 
11D3 
1796 
4472 

EABD 

EC41 

0000 
0000 7E 
0001 FE28 
0003 203E 
0005 D7 
0006 CDD311 
0009 E5 
000A 3E02 
000C CD9617 
000F 2A41EC 
0012 E3 
0013 7E 
0014 FE2C 
0016 202B 
0018 D7 
0019 CDD311 
001C E5 
001D 3E02 
001F CD9617 
0022 2A41EC 

0025 E3 
0026 7E 
0027 FE29 

0029 2018 
002B D7 


ERROUT:EQU 03B3H 

EVAL: EQU 11D3H 

CNVTYP:EQU 1796H 
SCRGET:EQU 4472H 

FACTYP:EQU 0EABDH 
FAC: EQU 0EC41H 


PUSH 

EX 

INC 

INC 

CALL 

LD 


LD 

LD 

LD 

LD 

POP 

RET 


HL 

DE, HL 
H 


テキストボインタを保存します。 


4472H 
L，C 


H レジスタに X 座標+ 1 をいれます。 

L レジスタに Y 座標+1をいれます。 

ァトリビュートコードを取り出します。 

;ァトリビュートコードを HL レジスタに入れ 
ます。 


H ， 


(0EC41H)，HL ;アトリビュートコードを FAC に入れます。 
A, 2 

(OEABDH)，A ;FAC が整数型であることを示します。 


HL 


テキストボインタをもどします。 
処理を終わります。 


ERROR : 


LD 

jp 


E， 2 
03B3H 


syntax error のコートで刀 
;エラーを 出力します。 


これをまとめてアセンブルするとこうなります。 


H 

S 

u D 

P し 


A D X D 
cLEL 


L H 
T L S 

p R s A u D 
c J R c P し 


T 

D p R s 
L c J R 


R 

T 

A 


E 

G 
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2C 

CD7244 

69 

2600 

2241EC 

3E02 

32BDEA 

El 

C9 


002F 

0030 

0031 

0032 

0033 

0036 

0037 

0039 

003C 

003E 

0041 

0042 


F260 

F270 

F280 

F290 

F2A0 


PUSH HL 
EX DE, HL 
INC H 
INC L 
CALL SCRGET 
LD し ， C 
LD H, 0 
LD (FAC),HL 
LD A, 2 
LD (FACTYP) , A 
POP HL 
RET 


次にフックを書き換えます。 STATUS のフックアドレスは EEB 3 H 番地ですからここに 
JP F 260 を入れます。 

mon 

h 〕 seeb 3 

EEB3 C3 - Cl-60 4D-f2 
h〕 A b 
Ok 

これで STATUS 関数が使えるようになりました。 

これを使ったサンプルプログラムを上げます。このプログラムはまず画面に192個の@を 
書き、次に画面の端から順にアトリビュートコードをしらべていって、そのカラ—コードを 
その位置にプリントします。 

100 DEFINT A-Z 

110 WIDTH 40,25 : CONSOLE 0,25,,1 
120 FOR 1=0 TO 191 
130 LOCATE RND*37,RND 木 20 
140 COLOR INT (RND 木 8) 

150 PRINT 
160 NEXT 
170 ^ 

180 FOR Y=0 TO 21 


0043 

1E02 

ERROR : LD 

E, 2 

0045 

C3B303 

JP 

ERROUT 

0048 


END 



まず機械語ルーチンを入力します。このルーチンもリロケータブルですので、空いている 
場所ならどこにでもおけますが、ここでは F 260 H 番地から入れることにします。ダンプリ 
ストは次のようになります。 


002C 

D1 

POP 

DE 

002D 

Cl 

POP 

BC 

002E 

51 

し D 

D, C 


5 B 4 
E E 2 


A D 5 D 
2 c E B 

7 2 12 
10 5 3 


6 E 
9 3 


12 
C 0 


E 


D 5 1 
c E D 3 

217 C 
0 1 D E 


3 81 
D 1 4 


E 

3 


5 D 0 2 
E C 2 2 

17 9 0 

1 D 2 0 

3 B E 6 3 
D 2 F 2 0 

D 0 E 9 3 
C 2 7 6 B 

7 C 3 4 3 
D 2 E 4 C 

E E C 2 2 
3 F E 7 0 

0 E 1 D E 

2 7 4 c 1 

8 3 A C 
2 E 2 2 


9 

c 


FE EC 17 


41 
2 E 


E 16 B A 
7 4 9 E E 
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190 

200 

210 

220 

230 

240 

250 


FOR X=0 TO 38 

C=STATUS (X,Y)¥&H 20 
COLOR C 
LOCATE X,Y 
PRINT USING” 林，，； C; 
NEXT 
NEXT 
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第 16 章ハードウェア仕様 


16-1 PC-8801mkII 回路図 

本回路図は著者ならびにシステムソフト技術部が独自に調査したもので、文責は著者ならびにシ 
ステ厶ソフトにかかるものであることをお断わりじ c おきます。 
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プリンタ•データ出カポート （ OUT ) 
フ°リンタ用バスにデータを出力します。 
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ホ° ー トアドレス 


同期モード 


SCS 

ESC 

EP 

PEN 

l 2 

L , 

〇 

〇 


キャラクタ長 


mm 

■■ 

■OH 

m 

mm 

■Dl 

um 

warn 

Q3ED 

13311 

Q3BI 

OSD 


♦パリアイイネーフル 
1:イネ ー フル 
0 :デイスエイブル 


1 ->パリティ指定 

1:偶数 
0 :奇数 

-^外部同期検出 

1: SYNDET = 人力 
0 : SYNDET 二出力 

->単ーキャラクタ同期 

1:単一 SYNC キャラクタ 
0 :夕、 V ル SYNC キャラクタ 

コマンドインストラクシヨンの定義 （ OUT ) 


EH 

IR 

RTS 

ER 

SBRK 

RxE 

DTR 

TxEN 


，送信イネーブル 
1:イネ ー ブル 
0 :ディスエイブル 

，データ.ターミナルレディ 
1 : Date Terminal Ready を ON にする。 
0 : Date Terminal Ready を OFF にす 
る。 

>受信イ ネーブル 

1!イネ ー フル 
0 :ディスエイブル 

，セン ドブレイク•キャラクタ 
1:ブレイクキャラクタの送信 

〇:通常動作 

★エフ ー リセット 

1:エラーフラグ ( PE ，0 E ， FE ) をリセット 

0 : NO OPERATION 
★センド要求 

1: Request to Send を ON にする 0 
0 : Request to Send を OFF にする 0 

★内咅じリセット 

1: 8251をモード•インストラク 
ションフォーマットへもどす。 

0 : NO OPERATION 
★HUNT 

1: SYNC キャラクタ検出を始める。 


0 : NO OPERATION 
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送レティ 
1:レディ 
0 :ビジー 


►オーバーフンエフー 
1:才ーバーランエラー発 
0:エラーなし 

►フレミングエラー 
1:フレミングエラー発:生 
〇:エラーなし 

>SYNC キャラクタ検出 
1: SYNC キャラクタ検出 
〇:検出なし 

① ata ^et Ready 
1 i Data Set Ready ON 
0 : Data Set Ready OFF 

/Data Set Ready 端子の ) 
、状態をモニタできます。ノ 


•受信レディ 
1:レディ 
0 :ビジー 

►送信バッファ エン プティ 
1:エン プティ 
0 :フル 


生 

発 

I 

ラ 

ーエし 
ラィな 
エテ- 
ィ リラ 

テ。 ハエ 

i • • • • 

r 





ポートアドレス 


シスアムコントロ ールポート （ 1 ) 


OUT 



1 BS 2 BS 1 MTON CDS ! COLOR 40 


bit 

内 容 

〇 ; 

40 

CRT デイスプレイ FORMAT コントロール 

0 : 40文字モード 

1: 80文字モード 

^ _ _ __ ■ ■ ^― ■■■ _ 一- - - - « _■■■ ■■ _ ■ _ _ ■ 一 _■■ - 111,11 1 一 • 

1 

_ 

COLOR 1 

CRT デイスプレイモードコントロール 

〇:カラーモード 

1:モノクロモード 

■ — ■ ■ mm \ 

2 | 

_ — ■ _ ■ —T 

CDS 

CMT キヤリアコントロール 

〇:スペース | 

1:マーク 

3 

― ■ - ■ —j 

MTON 

CMT のモータコントロール 

〇： OFF 

1: ON 

- 

4 

5 

— 

BS 2 

BS 1 

■ ■ ■ »^—^― — ■ ■ 1 ■' 1 ■ ■ 

USART のチヤンネルコントロール 

BS 2 BS 1 

〇 〇 : CMT 600 bps 

j 〇 1 : CMT 1200 bps 

1 0 : RS -232 C (非同期） 

1 1 : RS -232 C (同期） 


N 88- BASIC のワークエリア： E 6 COH 番地 
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くイッチ、汎用入カポート 


7 

6 

5 

4 

3 

2 

1 

0 

UIP2 

UIP 1 

SW1-6 

SW1-5 

SW1-4 

SW1-3 

SW1-2 

SW1-1 


SW1-1 

Q 

1 

N-BASIC 

1: 

L 


Nss-BASIC 

SW1-2 

Q 


ターミ ナル モード 

1: 


BASIC 

SW1-3 

D 


80 文字/行 

1: 


40 文字/行 

SW1-4 

B 


25 行/画面 

1: 


20 行/画面 

SW1-5 

0 


S パラメータ 有効 

1 


S パラメータ 無効 

SW1-6 

0 


DEL コー ドを処理する。 

1 


DEL コー ドを無視する。 

UIP 1 

UIP2 

■ - 

汎用入カポート 
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ポートアドレス 

31 H I 4 9 


システムコ 


ロールポート （2) 


7 6 5 4 3 2 10 



bit 

内 容 

0 

200 LINE 

ハイスピード CRT モードにおけるグラフイックモード 

のコントロ ー ル 

0 : 640 X 400 X 1 

1: 640 X 200 X 3 

1 

MM 0 DE 

RAM モードのコントロール 

0: ROM , RAM モード 

1 :64 KRAM モード 

2 

RM 0 DE 

ROM モードのコントロール 

0 : Nss-BASIC モード （ ROM 3, 4) 

1: N - BASIC モード （ROM 1,2) 

3 

GRPH 

グラフイックデイスプレイモード 

〇 :グラフィック画面を表示しない。 

1: " 表示する。 

4 

HC 0 L 0 R 

カラーグラフイックデイスプレイモード 

0 :モノクロモード 

1:カラーモード 

5 

25 LINE 

ハイスピード CRT モードにおける LINE/FRAME 

コントロール 

0 : 20 LINE モード 

1 :25 LINE モード 


N 88- BASIC のワークエリア： E 6 C 2 H 番地 
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SW 2-6 SW 2-5 SW 2-4 


- 

SW 2-1 

■ 

SW 2-2 

■ 

SW 2-3 

H 

■ _丨-_ 

SW 2-4 

■ 

SW 2-5 

—— 

0 : 

1: 

SW 2-6 

躍 


内 


リティ有り 


リテイ無し 


偶数 （ EVEN ) パリテ 


奇数 （ ODD ) パリテイ 


8ビット 


ビツ 


ストップ • ビット 


ストップ • ビット 




X パラメータ 有効 


X パラメータ 無効 


半二重 


全二重 
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ポ ー トアドレス 


4 0 H 


4 


スト ローブ ポート 


OUT 


UOP 2 


bit 


0 


PSTB 


CSTB 


2 


CCK 


3 


C し DS 


F し ASH i 


5 BEEP 


内 


容 


6 


5 


4 


3 


2 


0 


6 


UOP 2 


UOP 1 


BEEP 


FLASH 


C し DS 


CCK 


CSTB 


PSTB 


内 


容 


プリンタへのスト ローブ 信号 
〇:アクテイ 
1:インアクテイ 


カレンダクロックへのストローブ信号 
0 :インアクティブ 
1:アクテイ 


カレンダクロックへのシフトロック 
〇 : ノーマル 

1••クロック ON 


CRT コントロ ー ル回路への同期パルス 
0 :インアクテイ 
1:アクティブ 


フ ラッシング モー ドのコント ロール 
〇 : ノ ー マルモード 
1:フ ラッシング モード 


ブザーのコントロ ー ル 

〇 : BEEP OFF 
1 : BEEP ON 


U 0 P 1 汎用出カポート 


汎用出カポート/サウンドポート 


: ィ ップ SW 1-8 で切り換える 
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ポー トアドレス 



1 - 

bit 

内 容 

一 -— -- ■ ■ ■ 

0 

BUSY 

プリンタからの BUSY 信号 

0 : READY 

1: BUSY 

1 

SHG 

ハイレゾリューシヨングラフイックモード信号 

〇:ハイレゾモード 

1:ノ ー マルモ ー ド 

2 

DCD 

SIO のデータキャリアディテクト信号 

〇:キャリア入力なし 

1:キャリア入力あり 

3 

EXTON 

ミニディスクユニット接続信号 

0 :接続されている (ディ ップ SW 2 — 7\ 

1:接続されていない1の状態 / 

4 

CDI 

カレンダクロックからのデータ入力 

5 

VRTC 

CRTC からの垂直帰線信号 

〇 :表示，水平帰線サイクル 

1:垂直帰線サイクル 
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ポートアドレス 


5 0 H 
51 H 


8 0 
81 


5 2 H 


8 2 


内 


容 


CRTC (" PD 3301) ノ、 。 ラメータ （ OUT ) 


CRTC (" PD 330 1) コマンド 


( OUT ) 


ボーダーカラー， 


クグラウンドカラー制御 （ OUT ) 



bit 


内 


容 

■^― - ■ ■ ■ ■ ■ ■■ 4 

〇 

RB 

ボーダーカラー 

BLUE 


i 

1 

RR 

// 

RED 



2 

RG 

// 

GREEN 



4 

BGB 

■ ■ - 

バックグラウンドカラー 

BLUE 

8 

5 

BGR 

// 


RED 


6 

BGG 

II 


GREEN 



5 3 H 8 3 画面の重ね合わせの制御 （ OUT ) 



bit 


内 

容 

■ ""1 

— 

1 

TEXT 画面の表示 



0 

TXTDS 

o :表示する 





1:表示しない 

■ ■ " 1 _ 


1 ■■ '■ I 

-_j 

G - VRAMO の表示 



1 

GODS 

〇 :表示する 





1:表示しない 

■ ■ _ 



> _■■■—- 国_| 

— ■ - - ■ ■ ■■■ ' *" 

G - VRAM 1 の表示 



2 

G 1 DS 

〇 :表示する 


1 



1:表示しない 





G - VRAM 2 の表示 



； 3 

G 2 DS 

〇:表示する 





1:表示しない 

I _ _ _ _ __—— 


■ _ ■ ■ - *" mJ 
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ポートアド 


5 4 H 




5 5 H 
5 6 H 


8 5 


5 8 H 
5 9 H 
5 A H 
5 B H 



9 0 


tj フ——ノ 、° レ 
カラーノぐレ 
カラーノヽ°レ 
カラーバレ 
カラーハ°レ 
カラーパ;レ 
カラーノぐレ 
カラーハ 0 レ 


の制御 ( OUT ) 
の制御 （ OUT ) 
の制御 （ OUT ) 
の制御 （ OUT ) 
の制御 （ OUT ) 
の制御 ( OUT ) 
の制御 （ OUT ) 
の制御 ( OUT ) 


OUT 



bit 




PB 

カラー パ 

PR 

カラー パ 

PG 

カラー パ 




BLUE 


RED 


GREEN 


5 C H 


9 : 



bit 



GO 


G-VRAMO ス 



m 



G2 



•VRAM 1 


•VRAM2 


5 C H 
5 D H 
5 E H 
5 FH 


9 2 G-VRAM 0 選択 

G-VRAM 1 選択 
9 4 G - VRAM 2 選択 


9 5 


メイン RAM 選択 


( OUT ) 

( OUT ) 

( OUT ) 

( OUT ) 
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ポ ー トアドレス 


内 


容 


6〇 H 


9 6 DMAC (" PD 8257) コントロールポート 
i 60 H 〜 67 H : OUT 


6 8 H 10 4 68 H : IN/OUT 


PD 8257 レジスタ選択表 


レジスタ 


くイト 


アドレス入力 F 


双方向データスバス（※女 


A 3 A 2 Ai Ao L D ? De Ds I D 4 I Da 1 d 2 


Do 


6 0 H 


9 6 CH -0 DMA アドレス 


下位 0 0 0 0 0 A7 Ae As A4 A3 A2 Ai Ao 
上位0 0 0 01 A15 An A13 A12 A11 A10 A9 As 



CH -0 ターミナルカウン 



下位 0 0 0 


6 2 H 


9 8 CH -1 DMA アド 



6 3 H 


9 9 CH -1 夕ーミナルカウント 


6 4 H 10 0 CH -2 DMA アドレス 


上位 0 0 


下位 0 0 
上位0 0 

I 


下位0 0 
上位0 0 


下位 


上位0 


■ 

DBD 



■ w 

Rd 

■ 

Wr 

Cl 3 

_ m 

C12 

C11 




C 8 






0 0 0 


0 0 


6 5 H 101 CH -2 ターミナルカウン 




6 6 H 10 2 CH -3 DMA ア 


下位 



D 



チヤネル0に同じ 


10 3 CH -3 ターミナルカウン 


6 8 H 10 4 


ー ドセツト（プログラム時) 


mmmm 

BBBBB 

DDDDD 

DDQQQ 


下位 

上位 


□ 


0 0 0 0 A し TCS EW RP 


■趣 


ENI ENO 


ステータス(読み出し時） [ ——11101010101〇 〇 I 0 | up | tc 3| tc 2| tciItco 


CH -0 
CH -1 
CH - 2 


5 インチ DMA タイプ ディ ス クュニ 

8インチディスク ユニット 


CRTC 


※八〇〜八巧 ： DMA 開始 アドレス 


Co 〜 Ci 3 : TC の値 ( N - 1 ) 


Rd と Wr :ベリファイ （00), ライト（01)，リード （ 10 ) 


A L :才 ー トロ ー ド 
EW :拡張ライト 


TCS : TC ストップ 
RP : 回転優先 


EN 3〜0 :チャネルイネーブル 
TC 3〜0 : TC ステータスビッ I ， 


UP : UPDATE フラグ 


7 0 H 



TEXT WINDOW アドレスのオフセットアドレスレジスタ ( IN / OUT ) 


OUT 

IN 


AP 15 AP 14 AP 13 AP 12 AP 11 AP 10 AP 9 AP 8 
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ポー トアドレス 



7 8 H 


内 


容 


4 th ROM コントロール 
4 th ROM を制御します 


OUT 

IN 


7 — 

6 5 

4 

3 

2 

1 0 

, 4th 

4th 4th 

4th 

4th 

4th 

r - - | - —| 

4th 4th 

ROM8 

| ROM7jROM6 

ROM 5 

ROM 4 

,ROM 3 

ROM2 ROM 1 ( 


■ ^ ■ ■ - 

2 0 TEXT WINDOW アドレスのオフセットアドレスレジスタを1増す。 


E 4 H [ 2 2 81割;入みコント ロー ラ（バ PD 8214) カレント ステータス 出カポート （ OUT ) 


OUT I 



SGS 


B 2 


Bi 


bit ] 


- — - ■ — — ^― ■ ■ 丨 - — ■ *"1 

内 容 

0 

Bo 


i i 

Bi 

カレントインタラプトレベル 

2 

B 2 

1 - - -- - ■ - -- ■■ ■ -j 

3 

SGS 

カレントステータスレジスタのコントロール 

1 ■圆 —~ 一 ■ -- - - -- ■' _ ■ - ■ - 


N «8- BASIC のワークエリア： E 6 C 3 H 番地 


E 6 H 2 3 0 割込みマスクフラグ （ OUT ) 


OUT 




RXMF VRMF RTMF 


1 - 

bit 


内 

容 

〇 1 

RTMF 

リアルタイム割込みのマスクフラグ (0 :禁止，1:許可）」 

1 

VRMF 1 

VRTC 割込みのマスクフラグ 

(0 :禁止，1:許可） 

[■ ■■■ 

2 

1 _ 1 

RXMF 

RxRDY 割込みのマスクフラグ 

(0 :禁止，1:許可） 


NBASIK のワークエリア： EFOEH 番地 


E 8 H 2 3 2 ( OUT ) 漢字 ROM アドレスの下位 8 bit 指定 

( IN ) 漢字フォントの読み出し（下位 8 bit ) 
E 9 H 2 3 3 ( OUT ) 漢字 ROM アドレスの上位 8 bit 指定 

( IN ) 漢字フォントの読み出し（上位 8 bit ) 


EAH 2 3 4 ( OUT ) 漢字 ROM の読み出し開始 
EBH 2 3 5 ( OUT ) 漢字 ROM の読み出し終了 
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F 3 H 2 4 3 DMA タイプディスクユニットインターフェイスセレクトポート （ OUT ) 
F 4 H 2 4 4 DMA タイプ8インチディスクユニット制御ポート 

|丨 

F 7 H 2 4 7 

F 8 H [ 2 4 8 DMA タイプ5インチディスクユニット制御ポート 

■ ■ ■ ■■国 ■■ ▼ 一 _ ■ ■■■^■—麵圓藝 ■ ■■ ■ ■国 ■ • ■■■■■国 ■ ■■ 

インターフェースボードチェック （ IN ) bitO 
F 4 H ! F 8 H , 、 

モーター コントロール (OUT) PRE-COMPENSATION のため 

■ ■■■■ ■ I — ■ ■ ■ | ■■■晒 ■ ■ ■ ■ ■ ■ ■■ 麵 ■■ 圓 - ■■圓 _ ■ ■ 

F 5 H F 9 H マージンコントロール （ OUT ) 

■ _ — # —■ ■ ■■■園 —■ _ ■ ■ " 

F 6 H FAH FDC ステータス （ IN ) 

F 7 H FBH FDC データ • レジスタ （IN OUT ) 

■ ■■ ■ ■ ■ — ■ ■■ — ■__-■■■ ' — — 

FC H 2 5 2 |ミニディスクユニット制御ポート （" PD 8255) 

\ FCII : PORT A ( IN ) 人カデータ 

F F H 2 5 5 FDI 1 : PORT B ( OUT ) 出カデータ 

FEH : PORT C ( IN / OUT ) ハン ドシェ イク 
FFII ! コント ロ ー ルポ ー ト （ OUT ) 


FBH 251 
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16 - 3 サブシステム I / O ポートー覧表 



ート•アドレス 


F6H 


F 7 H 


F 8 H 


内 


容 


[ OUT ] プリンタスト ロー ブ信号を出力 

F 6 H を OUT すると BUSY 信号と同じレベルが出力される 


( PC - 8801 mkII ， PC -80 S 31 では無意味) 


BUSY K> 


o-J 


ブリンタが Ready にする 


プリンタが BUSY にする 


IN F7H で ，Low 

をチヱック 
(BitO が 0) 


PSTB 


OUT F6H で PSTB に BUSY 

のレベル （ Low) がでる。 




1 "sec (被•低) 


OUT F6H で PSTB に BUSY のレベル 
_ (High) がでる。 


OUT F7H でデータをセット 


DATA 


叫/ m 川川川川/川川川川川川川// mm /, 




Ai •低1 //sec 



般低1 "sec 


(数 fl 峨 PC-PR201 参照） 


[ OUT ] 1 ) VFO 用ウィンドウ値の出力に下位4ビットを使用 


[ IN ] 


2) プリンタへのデータ出力 （8 ビット） （ PC -8801 mkII 
PC -80 S 31 では無意味） 

プリンタの BUSY 信号の入力 


Bit 0 


0 Ready 
1 Busy 


[ OUT ]1) モーターの ON , OFF 


7 


6 


4 


2 


1 

1 1 1 

1 

ドライフー 

#3 

ドライブ 

# 2 

ドライブ 

#1 

ドライフ’ 

#0 









1 

0 


ON 

OFF 


2 ) ブリコンペイセイシヨンのセット•リセッ 


07 H 

0 FH 


セット 


(0 〜19トラック） 


リセット (20 〜39トラック） 


FAH 


[ IN ] FDC 765 からステータス•レジスタを入力 

FBH 


[ OUT ] [ IN ] 



FDC 765 へデータを出力.入力する。 

FCH 


メインシステムとのインターフェイス 



8255の制御ポート 

FFH 


FCH :ポート A ( IN ) 入カデータ 

FDH :ポート B ( OUT ) 出カデータ 

FEH :ポート C ( IN / OUT ) ハンドシェイク 

FFH :コントロール•ポート （ OUT ) 
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第 17 章ソフトウェア解析 


17-1 N 88-巳 ASIC 

17-1-1 インタプリタ 
17-1-2 ワークエリア 
17-1-3 モニタ 

17-1-4 コフンド•ステ ー トメント•関数®理アドレスー覧表 

17-2 サブシステム 

17-2-1 ROM 
17-2-2 ワークエリア 
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17-1-1 インタプリタ 


A 


アドレス 


0 0 0 0 


0 0 0 8 


0 0 


0 01 


0 0 2 0 

0 0 2 8 


0 0 3 0 


4 A 


0 0 8 A 


0 0 9 6 


0 0 A 0 


0 0 A A 


0 0 B 4 


0 0 B E 


0 3 0 E 


0 3 19 
0 3 2 0 



3 4 6 


0 3 6 F 


0 3 9 3 
0 3 9 6 
0 3 9 9 
0 3 9 C 


N 


-BASIC ROM ( アドレス 0000 〜 7FFF) 




ンタックスチェック 



テキストからの 
1文字読み込み 


1文字出力 


HL ， DE の比較 


SGN ( FAC ) 


FAC の型チェック 




ユーザー用 RST 


ダイレクトモード 
にセット 


演算子優先順位 

テーブル 

FAC 型変換 ルーチン 

アドレステーブル 

倍精度演算ルーチン 

アドレステーブル 


単精度演算ルーチン 

アドレステーブル 

整数演算ルーチン 

アドレステ ー ブル 


ワークエリア 

初期データ 


文字列 

文字列 

文字列 

文字列 


インタラプトベクトル 

初期データ 


スタ ッ ク サーチ 



フ 


ド待ち 



グラム 



RS 丁 （or CALL ) の後に置かれているキャラクタと （ HL ) とを比較して、 
一致しなかったら Syntax error 、 一 致したら RST 10 H をしてもどる。 


テキストから1文字 or 数を読み込む。 


CRT または LPT に1 文字 出力をする。 Acc に 文字 コードを入れて 
RST 18 H を行なう。 


(E64C) 


= 0 CRT に出力 
メ〇 LPT に出力 


HL-DE (無符号）を行ないフラグをセツトする。 Acc はこわれる 


FAC (単精度，倍精度）の符号を調べる。 ( cf . 20 BD ) 
-: Acc = FF , NZ，M 


Acc 


Z , P 


+ : Acc = l , NZ , P 


FAC の型を調べる。 

INT : Acc = FF, C, NZ, M, PE 
STR : Acc= ⑻， C ， Z ， P，PE 
SNG : Acc = 01， C ， NZ ， P，PO 
DB し： Acc = 05， NC , NZ, P, PE 


モニタではブレークボイント用またはコマンド待ちに戻る時に使う 


( E 656,5 7) に FFFF を入れる。 


+， 一， *，/，' AND ，0 R ， X 0 R ， EQV ， IMP ， M 0 D ， ¥ の順に礙先度を表 
わす数が人っている。（数字が大きいほど、優先度が高い） 


(旧％ : u> 1)BL 009A : |〇 INT 009(' : to STK 0091*； : to SN(i 


+，一， *，/、 比較の順で処理ルーチンのアドレスが入っている 


FAC 〇 ( EC 4 A 〜 EC 5 A)—FAC 


BCDEOFAC —FAC 


DEOHL —FAC 

オーバーフローがなければ HL にも入る 


E 600 〜に転送される。 




DB ' Error ' , 0 
DB ， in ， ，0 

DB ’ Ok ’ ， FF ，0 D ，0 A ， 
DB ’ Break ’ ， 0 


F 300 〜に転送される。 

(2 バイト X 16 組） 


FOR , G 0 SUB 用のスタックを見つける。 


スタックを文実行前にもどしてコマンド待ちへ。 


グラム エン ドに来た時の処理ルーチン。 


Syntax error 出 刀 
Duplicate label 出力 
Undefined label 出力 
Devision by zero 出力 
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0 3 9 F 


Next without For 出力 

0 3 A 2 


Duplicate Definition 出力 

0 3 A 5 


Undefined User function 出力 

0 3 A 8 


Resume without error 出力 

0 3 A B 


Overflow 出力 

0 3 A E 


Missing operand 出ブ J 

0 3 B 1 


Type mismatch 出力 

0 3 B 3 

エラー出力 

Ereg にエラーコードを入れてここにジャンプすると，そのエラーが出力される。 

0 4 7 B 

〇 k 出力 

〇 k を表示しコマンド待ちになる。 

0 4 A 7 

コマンド待ち 

コマンド待ちになる。 

0 5 B D 

リンクポインタセット 

テキストのリンクボインタを正しくセットする。 

0 5 E 9 

ペア行番号 GET 

ペアの行番号を読み込む。 

0 6 0 5 

行サーチ 

テキスト中から行番号 = DE の文を探す。 

0 6 3 2 

中間言語変換 

( HL ) 〜00のテキストを中間言語に変換し、 E 87 A 〜に入れる。 

■■ ■ ■ ■ — ■ 

0 8 BF 

FOR 

FOR 文エントリ 

0 9 9 6 

次の文を実行 


0 9 C 4 

次の文を実行 


0 9 E 5 

1文実行 

テキストボインタ =HL 

0 A 0 D 

1文字読み込み 

RST 10 H とほぼ同じ。 

0 A 8 D 

数一 FAC 

RST 10 H 用 FAC —演算用 FAC 

0 AC 4 

DEFSTR 

DEFSTR 文エントリ 

0 AC 7 

DEFINT 

DEFINT 文エントリ 

0 AC A 

DEFSNG 

DEFSNG 文エントリ 

0 ACD 

DEFDBL 

DEFDBL 文エント 1 J 

0 B 01 

正の整数式の評価 

正の整数式を評価して DE に入れる。 

0 B 0 6 

— - ■ — ■- ■ ■ < 

Illeagal function call 出力 

0 B 0 B 

行番号読み込み 

行番号を読んで DE に入れる。 

0 B 3 4 

行位置読み込み 

行番号 or 行•アドレスを読み込んで DE に入れる。 

0 B 7 C 

RUN 

RUN エントリ 

0 B B F 

GOSUB 

GOSUB 文エントリ 

0 B E 0 

害 ij り込み GOSUB 

ON 割り込み発生時の GOSUB 

0 B F 9 

GOTO 

GOTO 文エ■ント 1 J 

0 C 41 

RETURN 

RETURN 文エントリ 

0 C 7 7 

DATA 

DATA 文エントリ 

0 C 7 9 

REM 

REM 文エントリ 


ELSE 

ELSE 文エントリ 

0 C 9 7 

FAC — 変数 

FAC の値を変数にコピーする。 ! 


[ CALL の方法] 

Acc 一型一 3 
DE —コピー先ァドレス 
PUSH リターンアドレス 
PUSH DE 




PUSH AF 

JP 0 C 97 

mBBt 

LET 

LET 文エントリ 

0 D 01 

ON 

〇 N 文エントリ 

0 D 0 5 

ON ERROR 

ON ERROR GOTO 処 f 里 

0 D 3 9 

ON XX GOSUB 

ON < 害 IJ り込み >GOSUB () の処理 

0 D 7 3 

ON < 式: > G 〇丁〇 

ON 〜 GOTO , GOSUB M 


GOSUB 


0 D 8 D 

RESUME 

RESUME 文エントリ 
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0 DC A ERROR 


ODDS 


0 E 0 5 


0 E 4 


AUTO 






0 E 8 F 


0 E D 2 



LPRINT 


PRINT 


I 列出力 


ンマ処理 




0 F 1 B TAB, SPC 処理 


0 F 8 B 


セツト OFF 


0 F A A LINE 


0 F A ： 
10 2： 


()4 0 




LINE INPUT 


INPUT 



プト文処理 



READ 








3 5 0 


3 9 4 


3 9 8 


3 A 2 


3 B 0 


3 F 2 


4 0 6 


式の評価 (FRMEVL) 


整数除算 


因子の評価 




ERR 



FAC 


ERL 




5 8 


5 8 6 




5 D 7 


6 0 0 


7 9 6 


VARPTR 


(式）の評価 


変数読み出し 


大文字変換 


NOT 


LPOS 


POS 


USR 


DEF USR 


DEF 


FN 


FAC 型変換 



7 A 5 


7 AF 



7 C 9 



8 0 0 



ック転送 


プログラム実行中 
チェック 


FF グループ 
ステートメント 


INP 


OUT 


WAIT 


WIDTH 


ERROR 文エント 


AUTO 文エントし 


IF 文 エン 


LPRINT 文 エン 


PRINT 文 エントし 


FAC の文字列を位置制御して出力する処理を行なっている 


PRINT 文での「，」の処理 


PRINT 文での TAB, SPC の処理 


カセツトアクセスを終わる。 


LINE 文 エントし 


UNE INPUT 処理 
INPUT 文エントリ 


(LINE) INPUT のプロンプト文の処理ルーチン。 


READ 文 エントし 


式を計算して，結果を FAC に入れる。 


HL/DE—FAC 


演算の因子を評価して FAC に入れる。 


ERR 変数— FAC 


Acc (0 〜 255) を整数型 FAC に入れる。 


ERL 変数— FAC 


VARPTR—FAC 


で囲まれた式を評価して FAC に人れる。 


変数の値 — FAC 


Acc 内が英小文字だったら大文字に変換する。 


NOT 演算子の処理 


LPOS-FAC (LPOS の値 = E64B 番地） 


POS ( X ) —FAC 


USR 二 


DEF USR 処理 


DEF •: 


FN 二 


FAC を Acc で示す型に変換する。 

Acc= 2 INT 

3 STR 

4 SNG 
8 DBL 


DE の指す所から HL の指す所へ BC 個（ 〆 (））移動する。 


タイレクトモード中だつたら Illeagal direct エラー 




FF グループのステートメントの各 処理 ルーチンへ分岐する。 


INP (FAC)—FAC 


OUT 文 エン 


WAIT 文 エントし 


WIDTH 文 エン 





8 5 6 


8 6 A 




8 9 6 


8 A 3 


WIDTH# 

Acc— ファイル#， E— サイズにして CALL 

WIDTH LPRINT 

Acc —文字にして CALL 

WIDTH PRINT 

PRINT 文での WIDTH 設定 Acc— 文字数 & CALL 

整数式の評価 

HL— テキストポインタ &CALL 

FAC と DE に値が入る。 

パラメータの評価 

値が〇〜 255 となる式の評価. HL— テキストボインタ. 
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ドレス 


8 A 3 


8 D 4 


8 D 9 



パラメ ー タの評価 


LLIST 


LIST 


結果は Acc , Ereg , FAC に入る。 


し LIST 二 


LIST : 




9 4 C LIST 形式変換 



B 4 0 


DELETE 


( HL ) 〜00の中間言語を LIST 形式に変換して入カバッファ （ E 9 B 9 〜） 
に入れる。 


DELETE - 




B 7 A PEEK 



1 B 8 4 


B 9 3 



B 9 


POKE 


アドレスゲッ 


FAC アドレス変換 


PEEK ( FAC)—FAC 


POKE 




B B A 行番号—アドレス 


1 B B B 


.C 8 9 


1 CCD 


アドレス—行#号 


OPTION BASE 


ン ソール 出力 





C D 1 


D 2 A 


RANDOMIZE 



ンド サーチ 



DDB SNG FAC 


テキストからアドレス （-32768 〜6553 5) を読んで HL に入れる。 


FAC に入っている-32768〜65535の数値を整数に変換し、 HL に入れる。 


°ログラム中の全部の GOTO , GOSUB などの行番号の行番号^^行ア 
、'、レス変換を行なう。 


OPTION ^ 


Acc の文字をコンソールへ出力する。 59 A 4 と同じ。 
Acc —CHR コード & CALL 


RANDOMIZE ^ 


Creg = lA のとき、 NEXT サーチ 

/1 A のとき 、 WEND サーチ _ 


単精度 FAC をインクリメントする。 



E 6 




F 5 3 


」 B 7 


2 0 A 0 


2 0 A B 


2 0 B 3 


2 0 B 6 


2 0 B 



インクリメント 


単精度減算 


単精度加算 


LOG 


単精度乗算 


単精度除算 


ABS 


NEG ( FAC ) 


SGN 


Acc —FAC 


SGN ( FAC ) 




2 0 C D 単精度 FAC PUSH 


2 0 DA 


2 0 D D 


2 0 E 8 


2 0 E B 


2 0 E D 


2 0 F 4 



BCDE - FAC—FAC 


BCDE + FAC—FAC 


LOG ( FAC)-FAC 


BCDE * FAC—FAC 


BCDE / FAC—FAC 


ABC ( FAC)—FAC 


単精度，倍精度 FAC の符号反転。 


SGN ( FAC ) —FAC 


Acc (—128 〜 127) を整数型 FAC に入れる 


FAC の符号を調べる。 

+ : AF = 01， NZ，P 
0 : 00， Z，P 

- : FF , NZ，M 


単精度の FAC を PUSH する。 


HL)〜（HL + 3 )—SNG FAC 


BCDE-SNG FAC 


SNG FAC —BCDE 









フォーマッ ト変換 


212 B FAC アドレスゲッ 


演算用フ 


マ '、 J 




3 4 
5 F 



A 0 






2 2 3 E 


2 2 5 6 


2 2 8 6 


単精度比較 
整数比較 
倍精度比較 


CINT 


整数生成 


CSNG 


CDBL 



リン グチヱ ック 


FIX 


( IIL) 〜 （HL + 3) — 


( HL) 〜 （HL + 2) — D ， C ， 


SNG FAC—(HLHHL + 3) 


FAC , BCDE fiili 用フ オー マツ 


DE ー タイプ別 FAC アド 


BCDE - FAC を行なって Acc , フラグをセツトする。 

DE - HL を行なって Acc . フラグをセツトする。 

FAC —( EC 4 A 〜 EC 51) を行なって Acc 、 フラグをセツトする。 


FAC を整数型に変換する。 


HL — INT FAC _ 


FAC を単精度に変換する。 


FAC を倍精度に変換する。 


FAC が文字型であることのチェック。（違うと Type mismatch ) 


FIX ( FAC ) — FAC 
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NEC ( FAC ) 


幣数剰余 


DE mod HL — FAC ， 



2 41 D 

2 4 2 4 

2 5 5 3 

2 6 2 9 

倍精度减算 
倍精度加算 
倍精度乗算 
倍精度除算 

FAC - ( EC 4 A - EC 51) —FAC 

FAC + ( FX 4 A 〜 EC 5 1 )—FAC 

FAC * ( EC 4 A - EC 51) —FAC 

FAC / ( EC 4 A - EC 51) —FAC 

2 6 B 5 

2 6 B C 

倍精度数入力 
単精度数入力 

数値（外部形式、ポインタ HL ) —FAC 
数値（外部形式、ポインタ HL ) —FAC 

2 8 D 0 

浮動小数点出力 

FAC — EC 53 〜に数字（外部形式） 


(iree iormat ) 


2 8 D 1 

浮動小数点出力 

FAC — EC 53 〜に数字（外部形式） 


(nxeci format ) 

[ パラメータ ] 


Breg — 整数部の桁数(小数点は含まない) 
Creg — 小数部の桁数 （ 〜 ) 

Areg bit 7 ：1 


bit 6 
bit 5 
bit 4 
bit 3 

bit 2 

bit 1 
bit 0 


3 ケタごとの区切り「，」を入れる/人れない 
先頭を「*」で埋める/埋めない 
$をつける/つけない 
+をつける/つけない 

符号は数字の後/前 
未使用 
指数形式 


2 E 0 5 



SQR (単精度） 
べき粟（単精度) 


EXP (単精度） 


多項式計算 （ 1 ) 
(単精度） 


SQR ( FAC ) -SQR _ 

BCDE 下 AC—FAC 


EXP ( FAC ) —FAC 


C 0 氺 FAC + C 1 氺 FAC 3 + C 2 氺 FAC 5 + 


FAC 


多項式計算 


_ (単精度: 

2 F 1 A RND (単精度) 
2 F 8 B COS (単精度) 


C 0 + C 1 *FAC + C 2* FAC 2 + C 3* FAC 3 + --—FAC 


2 F 91 


SIN (単精度) 


3 0 2 C TAN (単精度) 


3 0 4 1 
3 0 5 3 


3 0 6 5 
3 0 6 A 
3 0 7 2 


3 0 7 9 


3 0 8 0 


パラ メータテーブル 1 
パラメ ータ テーブル 2 


シフト テーブル 



RND ( FAC ) —FAC 


COS ( FAC ) —FAC 
SIN ( FAC)—FAC 
TAN ( FAC ) —FAC 


DMA タイプ 5 インチデイスク用パラメータ 
DMA タイプ 8インチデイスク汁！パラメータ 


シフ ト 用 データ 

ビットを取り出すマスク（右シフト用） 
ビットを取り出すマスク（左シフト用） 


未使用インタラプト用ルーチン。 M もせずに戻る。 


VRTC インタラプト 



ー チン 


でマスクできる 


3 16 7 


RS - 232 C 



3 2 0 3 


3 2 2 6 


3 2 4 2 


カナ出力 


RS -232 C —文字出力 


キー スキヤン 


VRTC インタラプト 
PORT E 6 H , b 


RS -232 C 人カインタラプト.ルーチン 

PORT E 6 H , bit 2 —0 でマスクできる 


RS -232 C ポートに SI / SO プロトコルでカナを出力する。 


COM 1 に1文字出力する。 Acc — 文字コード 


キースキヤンを行•なう0 


CALL 
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3 2 4 2 

キースキヤン 

CY = 1 キー押されていない。 

= 0， Z = 1キー押したまま EEFE に 

= 0， Z = 0 新しいキーを押した データ 

3 5 8 3 

キー入力 

キーポード （ 止確にはキー入力川キュー）から1文字入力して Acc に 
人れる。人力待ちあり。 

3 5 A 8 

COPY 処理 

COPY キーの処理 

3 5 C 2 

ブレークチェック 

STOP , 乂：のときキヤリーをセットして戻る。 , 

3 5 C E 

キー入力 ( 

キーバッファから 1 文字読む。 

Z :バッファエンプテイ 

NZ : Acc — 人カデータ 

3 5 D 9 

キーバッファ 

イニシャライズ 

キー入力用キューをイニシャライズ（クリア）する。 

このルーチンを用いる場合、 DI 状態で行なってドさい。 

3 6 9 A 

DISKI /0 

物理的 DISKI /0 ルーチン 
entry * 

EC 85 —ドライブ# ( 0〜） 

EF 50 —ドライブタイプ 

8インチ DMA タイプ . 0 

5インチ DMA タイプ . 1 

5インチ片面インテリジェント……2 

5インチ両面インテリジェント……3 (内蔵ドライブ） 
ECB 4 —0 (エラーカウント） 

HL —データアドレス 

BC —トラック#，セクタ# 

フラグ — I / O モード 

CY = 1 . ライト 

CY = 0， Z ……チェック 

CY = 0 ，NZ ••…リード 




exit • 

CY = 1:エラー 

= 0 : 正常終了， BCHLA レジスタは 保存 

3 6 E 2 

サブシステム 

イニシャライズ 

サブシステムをイニシャライズする。 

exit : Acc —ドライブ数 

3 7 C 9 ] 

コマンド送出 

サブシステムにコマンドバイトを送る。 （ Acc — コマンドして CALL ) 

3 7 D 2 1 

データ送出 

サブシステムにデータバイトを送る。 （ Acc — データして CALL ) 

3 4 8 7 つ 

データ受信 

サブシステムからデータを受けとる。 

Acc にデータが入る。 CY = 1のときはエラー 

3 A 8 8 

HEAD RESTORE 

DMA タイプドライブのへッドリストア 

Creg — xxxxx HD US 1 US 0 して CALL 

3 A A D 

SEEK TRACK 

DMA タイプドライブのトラックシーク 

Creg—x X X X X HD US 1 USO 

Dreg — トラック# して CALL 

3 A F 7 

STATUS CHECK 

DMA タイプドライブのステータス読み込み。 

3 C 71 

インタラプト待ち 

FDC からのインタラブトを待つ。 

3 C 7 F 

リード FDC 

FDC からデータを読む。 

3 C 9 4 

ライト FDC 

FDC へデータを書き込む。 

3 C AC 

DMA 8インタラプト 

8インチ DMA タイプインタラプトルーチン 

3 C 3 9 

DMA 5インタラプト 

5インチ DMA タイプインタラプトルーチン 

3 DC B 

ドライブタイプゲット 

entry : Acc —ドライブ # 一 1 
exit : Acc , EF 5 D = ドライブタイプ 


CRT 出力 

CRT への：1文字出力 （Acc = ASCII コード） 

3 E 9 B 

BELL 

BEEP 出力 
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ドレス 


3 E B 4 


3 E C 0 





3 F 3 


BEEP 


ビーフ ° ON/OFF 


ンタ出カハンドラ 


ンタ ESC + 出力 


CSR し IN 



BEEP 


Acc =0 で BEEPO 、 〇以タトで BEEP 1 






くイト送る 。 （Acc = ASCII コード) 


ESC + Acc を送る。 


3 F 3 F PEN 割0込み 


CSR し IN—FAC 


PEN 害 ij り込みを起こすかどうかのチェック 


3 F 6 2 



チェック 


PEN リード 


ファンクションキー 

表示 




3 F 7 A 


ファンクションキー 

表示 


3 E B 4 


3 E C 0 


3 E D 4 



3 F 3 


3 F 3 



3 F 6 2 



BEEP 


ビープ〇 N/OFF 


プリンタ出カハンドラ 


プリンタ ESC + 出力 


CSRL IN 


PEN 割り込み 
チェック 


PEN リード 


ファンクションキー 

表示 


、ペン位置読み込み H，L — X ，ヽ 


ファンクションキー （ f . l 〜 f .5) の表示をする0 
( E 6 B 8) =0のとき表示しない。 

〆 0のとき表示する c 


ファンクシヨンキーの表示。 ( E 6 B 8)= 0のときは表示しなし、 
Acc = 0のとき f . 1〜 f . 5 
Acc = 5のとき f . 6〜 f . 10を表示する。 


BEEP エント 


:=0で BEEP 0、〇以タトで BEEP 1 


プリンタへ1バイト送る 。 （Acc = ASCII コード） 


プリンタに ESC + Acc を送る。 


CSRL IN-FAC 


PEN 割り込みを起こすかどうかのチェック 





3 F 7 A 


ファンクションキー 

表示 





4 0 4 7 


〇 N インタラブトべク 
トルアドレスのゲッ I 


最下行クリ 


タイマリ-ド 






4 2 4 2 
4 2 5 0 


4 2 5 7 


4 2 8 B 
4 2 9 0 


INPUT 


CLOCK インタラプト 


ック割込み禁止 



、ペン位置読み込み H，L — X， Y 


ファンクションキー （ f . 1〜 f . 5 ) の表示をする。 

( E 6 B 8) =0のとき表示しない。 

_ 〆 0のとき表示する。 


ファンクションキーの表示。 ( E 6 B 8) =0のときは表示しなし 
Acc = 0のとき f . 1〜 f . 5 
Acc = 5のとき f . 6〜 f .10 を表示する。 


■y : Acc — ON インタラブト# 

:こ HL — インタラプトベクトルアドレス 


テキスト画面の最下行をクリアする。 


タイムバッファに時間を読み込む。 
exit : 

( FOOD ) 秒 ( BCD ) 
( F 00 E ) 分 ( BCD ) 
( F 00 F ) 時 ( BCD ) 
( F 010) 日 ( BCD ) 
( F 011) 月（バイナリー） 
( F 012) 年 ( BCD ) 


( LINE ) INPUT WAIT の WAIT の処理をする。 


CLOCK インタラプトルーチン 


クロック割り込みを禁止する。 


ック割り込み許可 クロック割り込みを許可する。 



VRAM アドレス 


ー ソノレ OFF 
ー ソル ON 


4 2 9 D VRAM アドレス 


4 2 B 4 


4 2 



ヌルライン 
イニシヤライ 


UP スクロー, 


VRAM 上の各行の先頭アドレス_ VRAMTOP の値が格納されている 


カーソルを表不しない。 
カーソルを表不する。 


カーソル位置 （ H ， L )— カーソルアドレス （ HL ) の計算 
カーソル位置は1〜。 HL 以外のレジスタは変わりません。 


ヌルライン（通'帛 - FF 80 〜 FFF 7: 


イニシャライズする。 


テキスト画面を UP スクロールする 
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4 2 F E 

DOWN スクロール 

テキスト画面を DOWN スクロールする。 

4 31 E 

ラインアドレス 

entry : L — テキスト画面行# ( 1〜） 
exit : DE = 行の先頭のアドレス 

4 3 3 F 

VRT 同期 

Vertical retrace になるまで待つ。 

4 3 4 C 

VRAM 1 文字 PUT 

B —キャラクタコード 

HL — VRAMli アドレス &CALL 
アトリビュートは COLOR 文で設定したもの。 

4 3 5 0 

VRAM 1 文字 PUT 

B —キャラクタコード 

C —アトリビュートコード 

HL — VRAM 上アドレス &CALL 

4 3 5 1 

アトリビュートセット 

C —アトリビュートコード 

HL — VRAM 上アドレス &CALL 

4 4 5 2 

VRAM 1 文字 GET 

-- i 

entry : HL — VRAM 上アドレス 
exit : Acc，B =キャラクタコード 

C = アトリビュートコード 

4 4 5 B 

ァトリビュート作成 

entry : Acc —フアンクシヨンコード（カラーコード） 
exit : Acc = アトリビュートコード 

4 4 7 2 

スクリーン1文字 GET 

entry : H，L — X， Y ( 1〜） 
exit : Acc , B =キャラクタコード 

C = アトリビュートコード 

他のレジスタは変わりません。 

4 4 7 D 

スクリーン1文字 PUT 

スクリーンに1文字出力します。 
entry : ( EF 87) = X 座標 （ 1 〜） 

( EF 86) = Y 座標（卜） 

Acc =キャラクタコード 

4 4 9 F 

POS ( X ) 

POS ( X)-Acc 

4 4 A 4 

アドレス 変換 

実アドレス （ HL )— ウインドウ内アドレス （ HL ) 

4 4 B 3 

アドレス変換 

実アドレス （ BC )— ウインドウ内アドレス ( BC ) 

4 4 D 5 

アドレス変換 

ウインドウ内アドレス （ HL )— 実アドレス （ HL ) 

4 5 5 1 

ROM 3 CALL 

ROM 3 の処理を CALL する。 

4 5 8 F 

IPL ロード 

IPL をロー ドし，ジャンプする。 

4 5 DD 

PUT キュー 

キューにデータを入れる。 

Acc — キュー#， E — データ &CALL 

4 5 F 8 

GET キュー 

キューからデータを読み出す。 

entry : Acc —キュ ー# ( 0 or 1 ) 
exit : Z :キューエンブテイ 

NZ : Acc = データ 

4 61 B 

POP キュー 

PUT キューを行わなかったことにする。 
entry : Acc —キュ ー# 1 0 or 1 ) 
exit : Z :キューエンプテイ 

NZ : Acc = PUT したデータ 

4 6 3 D 

キューの 

イニシャライズ 

キューのイニシャライズ（クリア）をする。 
entry : Acc —キュ ー# 

B —キュー長 （2 n —1) 

DE —キューアドレス 


4 6 4 E 

BACK キュー 

データをキューの TOP に入れる。 
entry : Acc —キユー# 

E —データ 

4 6 5 5 

キュー.データ货 

キューに入っているデ ー タの数を HL に入れて戻る 

4 6 6 7 

FRE キュー 

キューの空いているバイト数を HL ， Acc に入れて戻る 

4 6 8 0 | 

キュー•テーブル•アドレス 

entry : Acc —ャ ユー孙 
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アドレス 


機 Bb 

4 6 8 0 

キュー•テーブル•アドレス 

exit : HL — キュー•テーブル•アドレス 

4 6 8 C 

ファイル 

ファイル•ディスクリプタの処理をする。 


ディスクリプタ処理 

entry : HL — ファイル•ディスクリプタの前 

RST 10 H をした後 CALL する 
exit : D =デバイス# 

EC 8 F 〜 = ファイル名 

4 6 F 8 


# Acc の VARPTR を HL に入れる。 

4 7 9 8 : 

OPEN 

〇 PEN エントり 

4 81 D 

ファイル CLOSE 

# Acc のファイルを CLOSE する。 

4 8 5 2 

RUN ” ” 

RUN <7 アイル〉エントリ 

4 8 5 4 

LOAD 

し OAD エントリ 

4 8 5 5 

MERGE 

MERGE エントリ 

4 9 A A 

RSET 

RSET エントリ 

4 9 A B 

し SET 

LSET エントリ 

4 A 5 C 

FIELD 

FIELD エントリ 

4 A A 1 

MKI $ 


4 A A 4 

MKS $ 

MKO $ ( FAC)-FAC 

4 A A 7 

MKD $ 


4 A B A 

CVI 


4 A B D 

CVS 

CVO ( FAC ) —FAC 

4 AC 0 

CVD 



4 B 0 4 I 

CLOSE 

CLOSE エントリ 

4 B 0 C 

CLOSE A しし 

すべてのフアイルを CLOSE する。 

4 B 41 

PUT #n 

PUT : ffn 処理ルーチン 

4 B 4 2 

GET #n 

GET 処理ルーチン 

4 B 5 4 

ファイル出力 

カレントフアイルにデータを出力する。 

4 B 7 B 

フアイル入力 

カレントフアイルからのデ ー タのシーケンシャル入力。 

4 B AC 

INPUTS 

INPUT $ エントリ 

4 C 2 F 

し OC 

し OC ( FAC ) 一 FAC 

4 C 4 0 

LOF 

し OF ( FAC ) -FAC 

4 C 51 

EOF 

EOF ( FAC ) —FAC 

4 C 6 2 

FPOS 

FPOS ( FAC ) —FAC 

4 CC 1 

し INE INPUT # 

LINE INPUT # 処理ルーチン 

4 DA 0 


Bad file name 

4 DA 3 


File already open 

4 DA 6 


Direct statement in file 

4 DA 9 


File not found 

4 D AC 


File not open 

4 D A F 


FIELD overflow 

4 DB 2 


Bad file number 

4 D B 5 


Internal error 

4 D B 8 


Input past end 

4 D B B 


Sequential after PUT 

4 DBE 


Sequential I/O only 

4 DC 1 


Feature not available 

4 E 5 3 

デバイス名—— 

デバイス# テーブル 

デバイス名とそのデバイス#が入っている。 

4 E 7 C 

処理ルーチン 

デバイスごとの I / O 処理ルーチンテーブルの先頭 


テーブルアドレス 

アドレスが入っている。 

4 E 8 C 

シーケンシャル 

DISK 以外のデバイスに対する各処理ル ー チンに分岐する。 


デバイス各種処理 

entry : Acc —処理# X 2 


352 

































































レス 


4 E 8 C 



シーケンシャル 
デバイス各種処理 


HL 一 VARPTR (# n ) 

D — デバイス# 

その他処理により他のレジスタ，フラグ，スタックにパラメータが必要 

処理# 処理 

0 OPEN 

1 CLOSE 

2 PUT/GET 

3 OUTPUT 

4 INPUT 

5 LOC 

6 LOF 

7 EOF 

8 FPOS 

9 BACK READ DATA 

10 WIDTH 


4 E C 



4 F 0 ： 


4 F 2 


4 F E 5 
4 F F 5 




OUT of memory 
チェック 


NEW 


CLEAR 


ON インタラプト〇 N 
〇 N インタラブト OFF 



必要なスタックレベル& CALL 


4 FFB ON インタラプト STOP 


5 0 


0 4 5 


0 5 9 


0 A 5 


ON インタラブト 

リクエスト 


ALL OFF 


ポーリング 


RESTORE 



OCA STOP 


0 E 5 


4 0 


15 8 
15 9 


END 


CONT 


TRON 

TROFF 



5 E SWAP 


ERASE 


5 2 2 E CLEAR 


5 2 B D NEXT 



5 3 7 D 


5 3 A F 


5 3 


5 4 4 



ラベルサーチ 


ラベル長カウン 


ラベル登録 


リフ- 




NEW を行なう。 


変数の CLEAR を行なう。 


ON インタラブトを QN にする。 

〇 N インタラブトを OFF にする。 

〇 N インタラプトを STOP にする。 

ON インタラブトをリクエストする。 

entry : HL —割り込みべクトルアドレス. ( cf . 4015) 


-ベての ON インタラブトを OFF にする。 


〇 N インタラブトのポーリングをして GOSUB する。 


RESTORE - 


STOP 二 


END : 


CONT 二 


TRON エントリ TRON フラ /= EC 3 B 
TROFF エントリ 


SWAP ^ 


ERASE : 


CLEAR: 


NEXT - 


，ベルテーブルからラベルのサーチをする。_ 


ラベルの長さを数える。 


グラム中のラベルをすべて登録する。 


ラベル名—ラベルのついている行のアドレス 





entry : H し 
exit : HL 


<— 


^— 


テキストポインタ （* の所） 
テキストポインタ（ラベルの次） 


DE —ラベルのついている行のアドレス 


5 4 8 0 


5 4 9 4 


5 4 C 1 
5 4 C 6 
5 4 C B 


5 4 



ラベルスキップ 


ストリング比較 


OCTS 

HEXS 

STR $ 


ストリングコピー 



〇 CT $ ( FAC ) 一 FAC 
HEX $ ( FAC ) 一 FAC 
STR $ ( FAC ) —FAC 


文字列領域にコピーの文字列をつくる 


entry : H し 
exit : DE 


◄ ~ 


◄ — 


ソースストリングのディスクリプタのアドレス 
コピーストリングのデイスクリプタのアドレス 
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アドレス 


5 4 E E 



ストリング 
スべ ー ス確保 


5 5 0 0 



グ登録 



5 5 3 0 


ストリング登録 


5 5 5 0 


5 5 7 2 


5 5 9 A 


5 6 B A 


文字列出力 


ストリング 
スペース確保 


ガベージー 


ストリングニ 


Acc 個のストリングスペースを確保する。 

HL にそのディスクリプタのアドレスが入る。 


HL + 1)〜00 or Breg or Dreg をストリングとしてストリングスタツ 
クに PUSH し、 FAC に入れる。 


DE が指すデイスクリプタの文字列をストリングスタックに PUSH し、 
FAC に入れる。 


( HL ) 〜⑻の文字列を出力する。 


Acc 個のストリングスペースを確保する。 

DE にそのアドレスが入る。ディスクリプタは作られない。 



ガベージ 



ンを行なう 



5 6 C 9 


5 6 CC 


5 6 F 8 

5 6 FC 


5 7 0 4 

5 7 0 8 


5 7 


エック& POP 


ストリング POP 


LEN 


HL — ソースストリングのデイスクリプタアドレス 
DE —デイステイ ネー シヨンスペースのアドレス 


FAC が文字型であることを確認してからストリング POP する 


FAC 



リングをス 


ングスタックから POP する 


ASC 




2 2 


5 7 4 



CHR $ 


STRINGS 


SPACES 



5 7 5 A LEFTS 
5 7 8 A RIGHTS 


5 7 9 3 


5 7 B 4 


5 7 D 7 



MID $ 


VA し 


INSTR 

INSTR 


LEN ( FAC ) —FAC 

—Acc 


ASC ( FAC ) —FAC 

—Acc 


CHR $ ( FAC ) —FAC 


STRINGS : 


SPACES ( FAC)—FAC 


し£尸丁$ェント 1 

RIGHT $ エント 
MID $ 関数エン 


VAL ( FAC ) —FAC 


INSTR エントリ 
INSTR ( P ， A $， B $) —Acc 



entry : Acc 


♦— 


5 8 5 A MID $ 文 



5 8 E 4 


5 9 3 5 


5 9 8 9 


5 9 A 4 


5 A 0 8 


5 A 5 8 


5 A 8 6 




FRE 


プリンタ出力 


プリンタ改行 


ン ソール 出力 


文字入力 


改行 


イベントキーチエック 


DE — VARPTR ( B $) 
HL 一 VARPTR ( A $) 
exit : Acc 一 INSTR 


MID $ 文エン 


FRE ( FAC ) —FAC 


プリンタへ 1 文字出力する。 


LPOS / O のときプリンタを改行する。 


ンソールへ1文字出力する。 


入カデバイスから1文字入力する。 


POS (乂）メ〇のとき改行する。 


’ベントキー ro ， s ， c ) が押されていたら，それに応じた動作を行な 


INKEYS 


5 A A 3 

5 A A 4 


5 AC 5 


5 AC A 変数アドレス GET 



5 D D 5 


5 DE 5 
5 DF 7 
5 E 0 3 
5 E 2 3 


カーソル移動コード 
処理アドレステーブル 


カーソル進める 
カーソル 復帰 
カーソル 改行 
カーソル DOWN 


INKEY $ エントリ 
INKEYS-FAC 


DIM エントリ 


entry : HL — テキストポインタ（変数名の最初） 
exit : DE-VARPTR 


LF ， HOME , CLR ， CR ，— ， — ， t ， I ，の順 

カーソル移動処理を行なうルーチンのアドレステーブル 
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5 E 3 3 

カーソル UP 

t 

5 E 4 9 

ホームポジション 

HOME 

5 E 5 4 

カーソル後退 

- 4 — 

5 F 0 E 

画而クリア 

CLR 

5 F 7 6 

む継続コード読み込み 

L 行 （1 〜）が次の行とつながっているかどうかを示すコードを読み込む。 
cf . EF 9 A 〜 

5 F 8 6 

行継続コード書き込み 

行継続コードを書き込む。 

5 F 9 2 

1行入力 (1) 

カーソルのある行全部を読み込む。 

5 F C 8 

1 行入力 (2) 

カーソル位置から人力した所までを読み込む。 
exit : E 9 B 9 〜人力文字列 

CY = 1: STOP ， て 

= 〇:リターンキー 

6 5 7 B 

EDIT 

EDIT エントリ 

6 6 4 2 

PRINT USING 

PRINT USING M 

6 7 E F 

カセットセーブ 

カセットへのプログラムセーブを行なう。 

F 009 =EBH 1200ボー 

= FAH 600ボー 

6 8 0 F 

カセットロード 

カセットからのロード，ベリファイ 

Acc =0 口ー ド 

=FF ベリファイ 

6 9 B 2 

フックイニシャライズ 

フックをイニシャライズする。 

6 9 D 1 

インタラプトベクトル 
イニシャライズ 

インタラプトベクトル （ F 300 〜 F 31 F ) をイニシャライズする 


CRT イニシャライズ 

CRT をイニシャライズする。 

6 9 F E 

処理ルーチン 

アドレステーブル 

中間 言語 81 H 〜 D 9 H に対する処理ルーチンのアドレステーブル 

6 A B 0 

FF シリーズ前半の 
処理ルーチン 
アドレステーブル 

中問言語 FF 81 〜 FFA 9 の関数に対する処理ルーチンのアドレステープ 

ル 

6 B 0 2 

FF シリーズ後半の 
処理ルーチン 

アドレステーブル 

中問 言語 FFD ◦〜 FFE 4 H に対する関数.文としての処理アドレステーブル 

4バイトで1組 

前の2バイト……関数としての処理ルーチンアドレス 
後の2バイト……文としての処理ルーチンアドレス 

6 B 5 6 

予約語のインデックス 

予約語テーブルの最初の1文字による INDEX 

6 B 8 A 

予約語テーブル 

予約語とその中間言語のリストが人っている。 

6 E 81 

演算子 テーブル 

1文字の予約語とその中間言語のリスト。 

6 E 9 6 

R 0 M 3 処理呼び出し 

ROM 3 処理を呼び出すために使われる。4バイトで1組。 


CALL 4551 H 
DB < 処理# > 




これを実行することにより<処理#>に対応する処理が行なわれる。 
ROM 3 ルーチンー覧表参照 

6 F 12 

エフ ーメ ツセ ーン 

ROM - BASIC のエラーメッセージテーブル 

6 F 6 B 

テキスト画面 

テキスト幽•面のイニシャライズ（モード変更） 


WIDTH 

entry : B —桁数 



c — 行数 

( E 6 B 2) スクロール開始行 

( E 6 B 3) スクロール終了行 

( E 6 B 4) ヌルアトリビュート 

( E 6 B 9) 00 :白黒モード 、 FF :カラーモード 
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アドレス 




CRTC セツ 


CRTC ， DMAC をセツトする。 
entry : CY =1 (40 桁）、0 (80 桁) 


( E 6 B 9) 
( E 6 C 4, 5) 

H し 


FF (カラー）、00 (白黒） 
VRAM TOP アドレス （ F 3 C 8) 
705 B (20 行）、7066 (25 行) 


0 71 


CONSOLE 



4 E LOCATE 




19 8 


A 6 


B 5 

C 6 





GET 


PUT 


CIS 

CLS 


タイマセツ 





DATES 


TIMES 


2 A B HELP 



2 B 0 


2 C 8 


STOP 


PEN 


2 CD I / O イニシャライズ 


CONSOLE 二 


LOCATE 二 


GET : 


PUT 二 


CLS エントリ 

B —< 機能 > & CALL _ 


タイムバッファ （ F ⑻ D 〜 F 011) のデータで時間をタイマにセットする 
( cf . 4047) 


DATES 文エン 


TIMES 文エン 


HELP 文エントし 


STOP ON /OFF / STOP 処理 


PEN 文 エン 


N 88- BASIC 用 I / O をイニシャライズする 




3 4 8 


3 6 7 


5 7 0 


7 9 



TERM サブルーチン 


TERM 


COM 1ホ°一りング 


ー ド分岐 





TERM 


COM 1をボーリングする。 HL — 受信した文字数 


ニシャライズ時にターミナルモード， N - BASIC モードへ分岐する 
ー チン。 


7 7 D D NEW 





NEW ON 



7 

9 8 

4 

7 

9 B 

2 

7 

9 FC 

7 

A 9 

6 

7 

AC 

0 

7 

B 2 

5 

7 

B 3 

9 

7 

B 5 

9 




NEW エント 


DE — (NEW ON 値）してここへ JMP する 


セツトから飛んでくる。 




文字列 How many files (0_15) 


文字列 ’Bytes free ’， 0 
文字列 ’NEC N -88 BASIC •… 



I / O 処理ルーチ 
アドレス 


DISK 以外の I / O 処理ルーチンのアドレステーブル 


各デバイスにつき22バイ 



11個の処理で LPT 1， COM 1, COM 2-3 



OPEN 


GET / PUT の大きさ 


LPT FPOS 
LPT OPEN 
LPT CLOSE 
LPT PUT 
LPT OUTPUT 
LPT WIDTH 


CAS 1, CAS 2, SCRN , KYBD の順 （ cf . 4 E 7 C , 4 E 8 C ) 


FCB を OPEN 状態にする。 


DISK 以外のデバイスに対する GET / PUT の大きさの処理ルーチン 


LPT FPOS 
LPT OPEN 
LPT CLOSE 
LPT PUT 


処理 

処理 

処理 

処理 


LPT OUTPUT 処理 


LPT WIDTH 


処理 
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アドレス 

項目名 

機 能 

7 C 9 6 

C 0 M 1 WIDTH 

COM 1 WIDTH 処理 

7 C 9 B 

COM 11 文字 INPUT 

Acc — 1 & CALL Acc データ 

7 CCD 


’Line buffer overflow ， エラ ー 出力 

7 D 71 

COM 

COM エントリ 

7 DC 3 

カセット〇 PEN 

カセット OPEN 処理 

7 E 3 A 

カセット CLOSE 

カセット CLOSE 処 S 

7 E 41 

カセット GET/PUT 

カセット GET/PUT 処理 

7 E 7 B 

カセット BACK 

カセット BACK READ DATA 

7 E 8 2 

カセット〇 UTPUT 

カセット〇 UTPUT 処理 

7 E 8 A 

カセット INPUT 

カセット INPUT 処理 

7 EB A 

ボーレイト 

カセットボーレイト設定 （ F 009 = FA :1200ボー， FB : 600ボー） 

7 E D 0 

カセット READ ON 

カセットリードをスタートする 

( F 009 = FA :1200ボー， FB : 600ボー） 

7 F 15 

カセ•ット READ OFF 

カセットリード中止 

7 F 1 A 

カセット WRITE OFF 

カセットライト中止 

7 F 3 0 

MOTOR 

MOTOR 王ントリ 

7 F 3 5 

MOTOR 

カセット用 MOTOR の〇 N/OFF 

Acc 〆 0 : MOTOR ON 

= 0 : MOTOR OFF 

7 F 4 D 

カセット WRITE ON 

カセットライト用イニシャライズ 

( F 009 = FA :12⑻ボー， FB : 600ボー） 

7 F 8 7 

カセットリード 

カセットから1文字入力する。データ —Acc 

7 F D 0 

カセットライト 

カセットへ1文字入力する。 Acc — データ& CALL 
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B. 4 th ROM1 部分（アドレス6000〜 7FFF) 


アドレス 


機 能 

6 0 0 D 

ROM 3 ジャンプテー 
ブル 

(2 バイト X 31 組） : 

メイン ROM での ROM 3 コール 

CALL 4551 

DB <処理番号> 

での、処理番号に対するジャンプテーブル（別表） 

6 0 4 B 

CIRC し E 文 
サブルーチン1 

スクリーンモードに合わせて縦、横の比を求める。 

6 0 5 D 

GET @文、 

PUT @ 文 

サブルーチン 

GET @ 文 、 PUT @文のサブルーチンで、各種ワークの設定、および 
実際のパターンの読み出し、書き込みを行なう。 

6 2 6 0 

スクリーンモード 

チェック I 

スクリーンモードによって、 Acc をセットする。 

カラ ー モード . Acc =3 

B/W モド . Acc 1 

6 2 6 A 

PAINT 文 

サブルーチン I 

PAINT 文のサブルーチンの集まり。 

6 3 9 2 

境界色セット 

PRINT 文の境界色をセットする。 
entry : Acc — パレット番号 

6 3 A 6 

PAINT 文 
サブルーチン II 

PAINT 文のサブルーチンの集まり。 

6 4 C 0 

VIEW PORT 内 

チェック 

オリジナル•スクリーン座標 （ X ， Y ) ( BC ， DE レジスタ）が 

VIEW PORT 内にあるかどうかをチェックする。 

内 …… CY =1 外 …… CY =0 

6 5 0 9 

CIRCLE 文 

サブルーチン U 

FAC = FAC * FRX の計算 （ FAC には、円の半径が入っている） 

6 5 18 

グラフィックアドレス 

の計算 

オリジナルスクリーン座標からグラフィック画面の物理アドレス、マス 
クパターンを求める。 

entry : BC — X 座標 

DE — Y 座標 

exit : ( F 033,34) =アドレス 

( F 035) =マスクパターン 

6 5 7 C 

LINE 文サブルーチン 

I 

LINE 文で、点を上下左右に移動させたときの、画面アドレスを求める。 
(一部、 PAINT 文でも使用） 

6 5 F 2 

汎用サブルーチン I 


6 61 B 

POINT ( Sx ， Sy ) 関数 
サブルーチン 

6518のルーチンでセットした場所の点の状態（カラーコード）を Acc に 
入れてもどる。 

6 6 4 7 

LINE BF 文 

サブルーチン 

LINE BF 文で指定した領域を塗りっぶすサブルーチン。 

6 6 A 0 

' ■■ 

カラーマスクセット 

パレット番号によって （ F 036 〜 38) に00または FF を書き込む。 
entry : Acc — パレット番号 

6 6 D 7 

グラフィックデータ 
書き込み 

上のルーチンでセットしたカラーで、6518のルーチンでセットした位置 
に点を書く。 

6 7 0 0 

グラフィック 
スクリーン初期化 

リセットやホットスタート時に呼び出される。グラフィックスクリーン 
をクリアし、各種ワークエリア等を初期化する。 
entry : ( F 087) —スクリーンモード（0，1，2) 

( F 088) —画面スイッチ（0，1，2,3) 

6 8 7 8 

COLOR 文 

COLOR 文の処理を行 1 なう。 

COLOR -6882 




COLOR =--68 EC 



COLOR @-6927 

6 9 8 F 

SCREEN 文 

SCREEN 文の処理を行なう。 
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アドレス 


6 A 9 4 


6 AC 6 


6 C 2 B 


6 C 5 5 


6 C A 8 


6 CD 5 


6 D 0 A 


6 D 2 9 


6 DC 0 


6 E 2 5 


6 E 2 B 


項目名 


CLS 2 文 


VIEW 文 


WINDOW 文 

サブルーチン 


WINDOW 文 


VIEW 関数 


WINDOW 関数 


CLS 2 文の処理を行 1 なう。 


VIEW 文の処理を行なう。 


WINDOW 文の座標パラメ ー タを得る。 


WINDOW 文の処理を行なう。 


VIEW 関数の処理を行なう 


WINDOW 関数の処理を行なう 


LP の初期化 


MAP 関数 


POINT () 関数 


POINT 文 


座標パラメータ 
(ワールド座標系) 


LP の値を左上の座標にセットする。 

( SCREEN 文、 VIEW 文、 WINDOW 文の実行後） 


MAP 関数の処理を行なう 
W —S … 6 D 8 B 
S — W •••6 DAB 


POINT 文の処理を行なう 


POINT 文の処理を行なう 


テキストから座標パラメータ（ワールド座標系）を得る 。 （WINDOW 
文が実行されていなければ、スクリーン座標系となる） 


6 E F 8 


6 F 3 3 


7 0 5 3 


7 0 5 A 


7 2 3 D 


7 2 6 


7 2 D 0 


2 EC 


7 2 ED 


7 3 2 4 


7 3 DF 


7 4 EE 


7 5 2 A 


7 5 4 F 


7 5 A 1 


7 5 D D 


7 6 7 4 


7 6 A 4 


スクリーン座標 
—ワールド座標 


スクリーン座標からのワールド座標への変換を行なう。 
entry : ( F 027,28)，（ F 0 29,2 A ) スクリーン座標の X， Y ( LP ) 

: ( F 0 A 4- A 7) ワールド座標の X ( LP ) 


exit 


( F 0 A 8 〜 AB ) ワールド座標の Y ( LP ) 


LINE 文サブルーチン11 


LINE 文で、線がオリジナルスクリーン上に書けるかどうかを調べる 


画而コヒー 


画面コピー （ COPY 文、 COPY キー）の処理を行なう 


COPY 


画面 コヒーす る 

entry : Acc ー コ匕ーモード （ 1 〜 5 ) 


漢字データ読み出し 


PUT @ KANJI 文のサブルーチンで漢字デ ー タをワークエリアの上 ( 
読み出す。 


漢字フォント読み出し 


漢字フオントを E 9 B 9 〜に読み込む （p ???参照) 
entry i DE — 漢字フオント 

: E 9 B 9 〜漢字フォント 


exit 


ON XX GOSUB 
サブルーチン I 


Read Light Pen 


PEN 関数 


ON XX GOSUB 
サブルーチン 11 


KEY 文 


DATES 関数 


TIMES 関数 


ドライブ対応表作成 


両面モードセツ 


RENUM 文 


PAIN 丁 文 


PAINT 


Line # ( DE レジスタ）を Acc 番目のジヤンプテーブルにセツトする 


ライトペン入力信号が来たときの行、列座標を読み出す。 


PEN 関数の処理を行なう。 


ON XX GOSUB の前処理を行なう。 XX によって、 BC レジスタを 
セットして、メイン ROM へ戻る。 


KEY 文の処理を行なう 


KEY し 1 ST 


73 D F 


KEY 定義 


KEY OFF 


7443 

7484 


KEY ON 


KEY STOP 


748 D 
•749 C 


KEY ON , OFF , STOP •••74 A 1 


DATES 関数の処理を行 1 なう。 


TIMES 関数の処理を行なう。 


ドライブ番号—ドライブタイプの対応表を作成する 


サブシステムを両面モードにする 


RENUM 文の処理を行なう 


PAINT 文の処理を行なう 


PAINT を行 1 なう 

[ CALL の方法](ただし、 WINDOW や VIEW を使わないとき） 
A . タイルべイントを行なわないとき 
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レス 


7 6 A 4 



PAINT 


7 7 D E CIRCLE 文 


E 4 


7 9 3 9 


サブルーチン m 


PAINT 文 
サブルーチン III 


PAINT キュー初期化 



① R 0 M 3 をアクティブにする 

② 7939のルーチンで PAINT 用のキューを初期化する 

③ 66 A 0 のルーチンで領域色をセツトする 

④ 6392のルーチンで境界色をセツトする 

⑤ リターンアドレス（⑩の位置）を PUSH する 

⑥ X 座標をスタツクに PUSH する 

⑦ Y 座標をスタツクに PUSH する 

⑧ （ F 056) に0を入れる 

⑨ このルーチンにジヤンプする 

⑩ メイン ROM に戻す 

B . タイルペイントを行なうとき 

① a の ( DdXD ®®®@ をおこなう 

② （ F 056) に1を入れる 

③ 以下のワークエリアをセツトする 

( F 04 F ，50)，（ F 052,53)，（ F 057)，（ F 0 54,5 5) 

④ このルーチンにジヤンプする 

⑤ メイン ROM に戻す 


1 = 一 DE を求める。 


PAINT 文のサブルーチン 


PAINT 用のキューの初期化を行なう。 

必要があるときはガベージコレクションを行なうので注意 



7 9 D 6 


7 A 6 9 


PAINT 文 

サブルーチンが 


CIRCLE 文 


CIRCLE 処理 




GE 丁®， PUT @ 文 


7 D 9 8 座標パラメータ 

(スクリーン座標系) 


7 DFB PRESET , PSET 文 


CIRCLE 文の処理をなう。 


CIRCLE を行 1 なう。 

[ CALL の方法](ただし、 WINDOW や VIEW を使わないとき） 
( DROM 3 をアクテイブにする 
② 66 A 0 のルーチンで色をセツトする 

F 027,28)，（ F 0 29,2 A ) に X 座標、 Y 座標をセツトする 
®( F 01 A ，1 B ) に半径をセツトする 

⑤ 以下のワークエリアをセツトする 

( F 072, 73)、( F 074 ,75),( F 076, 77),( F 07 A ) ， （ F 07 B ) , ( F 07 C ， 7 D ) ， （ F 084) 

⑥ リターンアドレス（⑨の位置）を PUSH する 

⑦ HL を PUSH する（ダミー） 

⑧ このルーチンにジヤンプする 

⑨ メイン ROM に戻す 


GET@，PUT @文の処理を行なう。 
GET @ …… ( F 071)=0 
PUT @ …… （ F 071) = l 


テキストから座標パラメータ（スクリーン座標系）を得る。 


PRESET 文の処理を^ 1 なう。 •••7 DFB 


PSET 文の処理を行なう 


7 E 00 



7 E 3 4 




POINT ( Sx，Sy ) 関数 


/ット番号を得る 


汎用サブルーチン 



POINT ( Sx，Sy ) 関数の処理を行なう。 


テキストから パラメータ （パレット番号）を得る。 


HL =( F 01 A ，1 B )- BC …… 7 E 55 


HL =( F 01 C ，1 D )- DE 


7 E 67 


DE 

BC 


( F 01 C ，1 D ) 
( F 01 A ，1 B ) 


7 E 72 

7 E 7 F 
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アドレス 


機 能 

7 E 8 B 

LINE 文 i 

LINE 文の処理を行なう。 

[ LINE の引き方] 

① R 0 M 3 をアクティブにする 

② 66 A 0 のルーチンでカラーをセットする 
@( F 025,26) にラインスタイルをセットする 

®( F 01 A ，1 B )，（ F 01 C ，1 D )に終点の X 座標、 Y 座標を人れる 

⑤ BC ， DE に始点の X 座標、 Y 座標を入れる 

⑥ 処理に応じて以下のどれかを CALL する 

LINE BF …… 7 EB 7 

LINE のみ…… 7 EF 5 

し INE B .7 F 0 E 

⑦ メイン ROM に展す 

7 *E B D 

汎用サブルーチン HI 

DE = DE ¥2 

7 FC 5 

LINE 文 
サブルーチン III 

ラインスタイルを見て、点を打つ。 

7 F D 5 

汎用サブルーチン w 

テキストから1バイトのパラメータを得る。 

7 F E D 

専用高解度 

ディスプレイチェック 

専用高解度ディスプレイモードかどうかを調べる。 
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[ R 0 M 3] 処理番号と処理開始アドレス 


処理番号 

アドレス 

内 容 

■RjjHI 

7 D F B 

PRESET 文 

1 

7 E 0 0 

PSET 文 

2 

6 D 2 9 

MAP 関数 

3 

7 C 3 3 

GET @， PUT @ 文 

4 

7 0 5 3 

COPY 文 

5 

7 0 6 4 

COPY キー 

6 

7 E 8 B 

LINE 文 

7 

6 E 2 5 

POINT 文 

8 

6 7 0 0 

グラフィック画面初期化 

9 

6 AC 6 

VIEW 文 

10 

7 E 19 

POINT ( Sx，Sy ) 関数 

11 

6 D C 0 

POINT 関数 

12 

6 8 7 8 

COLOR 文 

13 

EEBC 

ROLL 文 

14 

7 9 D 6 

CIRCLE 文 

15 

6 C D 6 

WINDOW 関数 

16 

6 C 5 5 

WINDOW 文 


7 6 7 4 

PAINT 文 

18 

6 9 8 F 

SCREEN 文 

19 

6 C A 8 

VIEW 関数 

20 

6 A 9 4 

CLS2 

21 

6 D 0 A 

LP の 初期化 

22 

7 2 D 0 

ON XX G0SUB サブルーチン I 

23 : 

7 2 E D 

PEN 関数 

24 ； 

7 3 2 4 

ON XX G0SUB サブルーチン D 

25 

7 4 2 E 

KEY 文 

26 

7 5 2 A 

TIMES 関数 

27 

7 4 E E 

DATES 関数 

28 

7 5 A 1 

サブシステムモードセット 

29 

7 5 4 F 

ドライブ対応表作成 

30 

7 5 D D 

RENUM 文 
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■ ディスクコード 



ドレス 


8 7 D 6 
8 7 E 6 


8 8 0 3 


8 8 E 9 


8 9 B 3 


8 9 D 7 


8 9 FC 


8 A 18 


8 A 3 C 


8 DE 5 


8 E 5 5 


8 E 5 8 


8 EC 3 


8 F 41 


8 F 8 ： 


8 FA 4 


8 FBD 


8 FD 0 



9 0 0 1 
9 0 0 C 
9 0 18 
9 0 3 2 
9 0 3 C 


9 0 4 3 
9 0 5 1 
9 0 5 F 


9 0 C 4 


0 C 9 


9 0 CC 
9 118 
91 A 5 


9 2 4 7 


9 3 2 6 


9 4 8 B 
9 4 E 7 
9 4 F 0 
9 5 6 F 
9 6 15 
9 6 5 0 




RO しし UP 後:処理 
ROLL DOWN 後処理 


CHAIN 文サブルーチン 


ROLL 文 


SEARCH 関数 


ATN 関数（単精度） 


データ 


デイスク情報セッ 




、、一夕 


エフ ーメ ツセ 


キーバッファをクリアして、 EDIT へ戻る。 
キーバッファをクリアして、 EDIT へ戻る。 


ラベルスキップ 


ROLL 文の処理を行なう。 


SEARCH 関数の処理を行なう。 


ATN ( FAC 卜 FAC 


ATN 関数用のデータ 


デイスク情報をワークエリア （ ECA 5 にセツトする 


デイスク情報データ 


フルセンテンス エラー メ ッセージ 


テキスト入力時の処理 MAIN ループでのテキスト入力時に、 CHAIN 文であれば、ストリング 


8 E 4 B CHAIN クリ 


■ 


デバイスデフ 
セツト 


ニシャライズ 



8 E 9 A GET デバイス 




DSKF 関数 


式の評価 


倍精度分岐 


倍精度関数ジャンプ 

テーブル 


DISK 関数評価 


ファイル関数評価 


フルセンテンス • 
メツセ ーン セツ 


KYBD 

KYBD 

KYBD 

KYBD 

KYBD 


SCRN 

SCRN 

SCRN 


OPEN 
INPUT # 
GET # 
READ BACK 
し OC 


OPEN 

OUTPUT 

PUT # 


WEND サーチ 


ワークエリア 


ROLL UP 
ROLL DOWN 
EDIT 行番号 GET 


倍精度関数 

サブルーチン 


数値 データ 


ATN (倍精度） 
cos (倍精度） 
EXP (倍精度） 
LOG (倍精度） 
SIN (倍精度） 
SQR (倍精度） 


エリアをクリアしないようにするためのルーチン。 


:ラーがおこったとき、 CHAIN 文フラグをクリアする。 


ファイルディスクリプタのデバイス番号のデフオルト値を0にする。 



ドライブテーブルを初期化して、 ID セクタを実行する。 


ファイルディスクリプタのデバイス#を Acc へ入れる。 


DSKF 関数の処理を行なう。 


式の評価ルーチンを倍精度関数用に拡張 


倍精度関数ルーチンへのふり分けを行なう。 


SQR , RND ， SIN , LOG , EXP , COS ， TAN , ATN 



DSKI $, INPUTS , ATTR $ の分岐 

また、 USR 関数実行時に、プロテクトのチヱックを行なう 


EOF ， FROS , LOC , し〇 F の分^支 


フルセンテンス エラー メ ッ セージの ボイ ンタをセツ トする。 


OPEN “ KYBD : ” 処理 
KYBD の INPUT # 処理 
KYBD の GET # 処理 
KYBD の READ BACK 処理 
KYBD の LOC 関数処理 


OPEN “SCRN 


処理 


SCRN の OUTPUT # 処理 
SCRN の PUT # 処理 


WEND を サーチす る。 


CHAIN 文で使用する 。 OPTION BASE のフラグと値 


EDIT モードでの ROLL UP キーの処理 

EDIT モードでの ROLL DOWN キーの処理 

EDIT モードのための行番号を画面から読みとる。_ 


倍精設関数計算のための汎用サブル ー チン集 


倍精度関数計算のための数値データ 


ATN ( FAC 卜 FAC 
COS ( FAC )— FAC 
EXP ( FAC 卜 FAC 
LOG ( FAC )- FAC 
SIN ( FAC 卜 FAC 
SQR ( FAC 卜 FAC 
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mmm 

TAN (倍精度） 

TAN ( FAC 卜 FAC 


ファイル削除 

FAT からファイルを削除する。 

9 7 3 B 

MOUNT メインルーチン 

ディスクをマウントする。 

9 7 9 F 

文字列 

DB Copies of allocation bad on drive ,0 

9 7 F D 

REMOVE サブルーチン 

REMOVE ルーチンのサブルーチン、 FAT の更新を行なう。 

9 7 E A 

REMOVE 

リムーブ処理を行 1 なう。（〇 PEN ， CLOSE，KILL ) 
entry ! Acc — デバイス# 

■ma 

MOUNT 

デバイスがディスクだったらマウント処理を行なう。 

9 8 2 C 

ファイル#チヱック 

PUT #， GET # で、ファイル#が現在のファイルのレコ ー ド数より大 
きいかどうかを調べる。 

9 8 6 9 

L 0 C 関数サブルーチン 

クラスタ数を数える。 

9 8 8 6 

FAT TOP セット 

DE レジスタに FAT の先頭番地をセットする。 

9 8 DA 

クラスタ—セクタ 1 

クラスタ数からセクタ数を求める。 
entry : C =クラスタ数 
exit : DE =セクタ数 

9 8 E A 

デイレクトリサーチ 

ディレクトリからファイル名を探す。（なければ Z =0) 

9 9 5 3 

デイスク情報セット 

ディスク情報、ドライブポインタをワークエリアにセットする。 
entry : Acc =ドライブ井 

9 9 9 7 

ID セクタ計算 

BC レジスタに ID トラック，セクタをセットする。 

9 9 A 1 

ディレクトリトラック 

B レジスタにディレクトリトラックをセットする。 

9 9 B 6 

NAME 文 

NAME 文の処理を行なう。 

9 A 01 

ディスクファイル 

OPEN 

ディスクファイルをオープンする。 

9 B 21 

ディスクファイル 

ディスクファイルをクローズする。 



CLOSE 


9 BAD 

KILL 文 

KILL 文の処理を行なう。 

9 BC 5 

ディスク SAVE 

ディスクへのセーブルーチン 

9 C 2 6 

BSAVE サブルーチン 


9 C 3 5 

BLOAD サブルーチン 


9 C 51 

デイスク LOAD 

ディスクからのロー ドルーチン 

9 C E 7 

OPEN チェック 

ファイルがすでにオープンされているか調べる。 

9 DAD 

SET 文 

SET 文エントリ 

9 E 1 D 

ATTR $ 関数 

ATTR $ 関数エントリ 

9 E 5 E 

SE 丁 文 、 ATTRS 

SET 文、 ATTR $ 関数のパラメータを処理する。 

9 F 2 A 

LFI し ES 文 

LFI し ES 文エントリ 

9 F 2 F 

FILES 文 

FILES 文エントリ 

9 FFD 

PUT #/ GET # 

ランダムファイルの読み書きを行なう。（ディスク） 

A 10 4 

INPUTS 

INPUTS 文の処理（ディスク） 

A 18 5 

DSKI $ 関数 

DSKI $ 関数の処理を行なう。 

A 1 C 4 

DSKO $ 文 

DSKO $ 文の処理を行 1 なう。 

A 1 F 3 

DSKI $， DSKO $ 

サブルーチン 

DSKI $, DSKO $ のパラメータをレジスタにセツトする。 

A 2 F 7 

FA 丁 READ 

FAT をメモリ上に読み出す。 

A 3 2 7 

ディレクトリ READ 

ディレクトリをメモリ上に読み出す。 

A 3 4 0 

ディレクトリ WRITE 

ディレ•クトリを書き込む。 

A 4 E 0 

カレントセクタ READ 

現在のファイルの1セクタを読み出す。 

A 4 FF 

トラック.セクタ計算 

カレントクラスタ•セクタからトラック • セクタを計算する。 

A 5 3 B 

DISK READ/WRITE 

ディスクの READ / WRITE ルーチン 

A 61 A 

DSKF 関数 

ディスクのフリークラスタを求める。 

A 6 4 0 

LOC 関数 


A 6 6 9 

LOF 関数 
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アドレス 

A 6 

8 

5 

A 6 

C 

9 

A 6 

F 

1 

A 7 

1 

0 

A 7 

1 

3 

A 7 

1 

6 

A 7 

1 

9 

A 7 

1 

C 

A 7 

1 

F 

A 7 

2 

2 

A 7 

2 

5 

A 7 

2 

8 

A 7 

2 

B 

A 7 

2 

E 

A 7 

3 

1 

A 7 

3 

D 

A 7 

A 

8 

A 8 

1 

0 

A 8 

7 

5 

A 8 

9 

F 

A 9 

1 

6 

A 9 

8 

c 

AC 

1 

0 

AC 

7 

2 

AC 

7 

5 

ACC 

1 

AD 

0 

5 

AD 

4 

8 

AF 

0 

0 



EOF 関数 


FPOS 関数 


ID セクタ READ 



BSAVE 文 


BLOAD 文 


BLOAD , BSAVE 

サブルーチン 


WHILE 文 


WEND 文 


CALL 文 


CHAIN 文 


CHAIN 文ジャンプ 


COMMON 文 


WRITE 文 


SAVE 暗号化 


LOAD 平文化 


クトチェック 


ID セクタをキーバッファに読み込む。 


Bad allocation table 
Bad drive number 
Bad track sector 
Disk already mounted 
Disk not mounted 
Deleted record 
File already exists 
Disk full 

File write protected 
Disk I/O error 
Disk offline 
Rename across disks 


BSAVE 文の処理を行なう。 


BLOAD 文の処理を行なう。 




イ ニシヤ ライ 
ルーチン 


WHILE 文の処理を行なう0 _ 


WEND 文の処理を行なう0 _ 


CALL 文の処理を?了なう0 _ 


CHAIN 文の処理を行なう0 _ 


CHAIN 文で指定された行番号へとぶ。 _ 


COMMON 文の処理を行なう0 _ 


WRITE 文の処理を仃なう。 _ 


P オプションセーブのときにプログラムを暗号化する。_ 


P オプションセーブをしたプログラムのロー ド後もとに民す。 

プロテク ト （ P オプシ ョン セーブしたプログラムがロー ドされている） 
の状態であれば、以下のコマンドをエラーとしてしまう。 

_ LIST , SAVE , MON , USR , CALL ， PEEK , POKE _ 

最初にイニシャライズを行なったあとは不要になり、他の目的に使用さ 
れる。 
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. 拡張命令パッケージ 


アドレス 


DC 0 0 


DC 13 


DC 9 C 


DC D 5 


D D 0 6 


項目名 


内 


容 


ニシャライズ 


CMD エント 


サブコマンド解析 


サブコマンドアドレス 

対応表 ( 1 ) 


サブコマンドアドレス 

対応表⑵ 


サブ コマン ド名を解析して各 コマン ドに飛ぶ 


CMD SING サブコマンドとその処理アドレスの対応表 


CMD TURTLE サブコマンドとその処理アドレスの対応表 


D D 6 8 


DE 9 B 


DF 5 E 


D F 6 B 


DFFE 


E 0 0 D 


E 0 6 E 


E 12 0 


E 


E 


E 19 4 


E 2 3 0 


E 2 5 7 


E 2 6 6 


CMD TURTLE コマ 


K 


CMD TURTLE の各サブコマンドの処理を行なう 


DD 68 

FD ( Forward ) 

DD 75 

BK ( Back ) 

DD 8 A 

SX ( Set X ) 

DD 93 

SY ( Set Y ) 

DD 9 C 

MV ( Move ) 

DDEC 

RT ( Right ) 

DDF 6 

LT ( Left ) 

DE 0 A 

HD ( Head ) 

DE 48 

CP ( Complement ) 

DE 68 

PD ( Pen Down ) 

DE 69 

PU ( Pen Up ) 

DE 6 E 

PC ( Pen Color ) 

DE 80 

ST ( Show Turtle ) 

DE 8 E 

HT ( Hide Turtle ) 


CMD SING つマンド、 


CMD SING の各サブ コマン ドの処理を行なう 


DE 9 B 

… T ( Tempo ) 

DEA 7 

… L ( Length ) 

DEAE 

… 0 ( Octave ) 

DECC 

••• R ( Rest ) 

DED 4 

••• B ( play B ) 

DED 6 

… A ( play A ) 

DED 8 

… G ( play G ) 

DEDA 

… F ( play F ) 

DEDB 

… E ( play E ) 

DEDD 

••• D ( play D ) 

DEDF 

••• C ( play C ) 


コピー ライト 


DB ，( C ) 1983 NEC ，，0 


音階 テーブル 


CMD SING の各音階ごとの高さと長さの入ったテーブル 


X サブ コマンド 


X コマンドの処理をする 


リピートサブ コマンド 


EOOD 

E 048 


• • • 


• • • 


RP 〔（リビート開始) 
〕 （リビート終了） 


PUT TURTLE 


タートルを書く 


ERASE TURTLE 


タートルを消す 


PSE 丁 XOR 


XOR で PSET する 


LINE XOR 


XOR で LINE を引く 


音階出力 


実際に音を出すルーチン 


1バイト乗算 


HL = A 氺 C 


R 0 M 3 セレクト 


R 0 M 3 をセレクトする 


E 2 6 B 


E 2 7 2 


メイン ROM セレクト 


メイン ROM をセレクトする 


次の位置の計算 


距離と方向と LP から次の LP を計算する 
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17-1-2 ワークエリア 

A . 拡張命令パッケージ 


アドレス 項目名 


E 4 D 1 
E 4 D 3 
E 4 D 7 
E 4 D B 
E 4 D F 


E 4 E 3 
E 4 E 4 



E 4 E 6 


E 4 E 7 
E 4 E 8 
E 4 E 9 


E 4 E B 
E 4 E D 
E 4 E F 
E 4 F 1 
E 4 F 3 
E 4 F 5 
E 4 F 7 
E 4 F 9 



E 

4 

F 

B 

E 

4 

FC 

E 

4 

F 

D 

E 

5 

1 

5 

E 

5 

1 

6 

E 

5 

1 

8 

E 

5 

1 

9 

E 

5 

1 

B 


E 51 




E 5 2 0 
E 5 21 


E 5 2 2 




ブの最初をさす) 










ター ト ルの 向き 
SIN (タート ルの 向き） 

COS (ター トルの 向き） 

タートルの 大きさ（前後方向） 

タートルの 大きさ（左右方向）_ 


ペンの色 

ペンの状態 （0 : PEN UP 1 : PEN DOWN ) — 


補正するかどうか （1 :す^_ 

タートルフラグ」0 :表示しない_1:表示する） 
テンポ （ T サブコマンド） 

長さ （ L サブコマンド） 

オクターブ （音階 テーブルのそのオクターブの 右 
タートルの 先頭の X 座標 
ター ト ルの 先頭の Y 座標 
ター ト ルの 右足の X 座標 
タートルの 右足の Y 座標 
ター ト ルの 左足の X 座標 
ター ト ルの 左足の Y 座標 
ター ト ルの 中心から右足までの X 偏位 
ター ト ルの 中心から右足までの Y 偏位_ 


CMD SING/CMD TURT し E の七刀り換え（〇 : SING 1 : TURTLE 

一 • 一 - -- 


負号フラグ_ _ 

リピートテーブル （3 バイトで一組。リピートカウンタとリピートアドレス） 

リ ピー トレベル 

リピートテーブルポインタ。最も深いレベルを指す0 _ 


出力する音の高さ 
出力する音の長さ 

スピーカを制御するビットマスク0休符のときは〇 _ 


符点音符フラグ _ 


CMD CLS でバックグラウンドカラーによる各プレーンに書き込む値(〇〇 or FF 


ボート31 H のバックアップ （CMD CLS 用） 

ボート40 H のバックアップ （CMD CLS 用）__ 


プレーンクリアするサブルーチンのアドレス差 



368 














一 BASIC 本体 



レスバイト数 


E 6 0 0 


E 6 0 E 
E 6 0 F 
E 610 
E 611 

E 6 31 


E 6 3 5 







E 6 4 D 

E 6 4 E 



E 6 


E 6 5 2 




E 6 5 4 


E 6 5 6 


E 6 5 8 


E 6 5 A 


E 6 5 


E 

6 

6 

9 

E 

6 

8 

4 

E 

6 

9 

C 

E 

6 

9 

E 

E 

6 

9 

F 

E 

6 

A 

0 

E 

6 

A 

1 

E 

6 

A 

2 

E 

6 

A 

3 

E 

6 

A 

4 

E 

6 

A 

5 

E 

6 

A 

6 

E 

6 

A 

7 

E 

6 

A 

8 

E 

6 

A 

9 

E 

6 

A 

A 



E 

6 

A 

D 

E 

6 

A 

E 

E 

6 

B 

0 

E 

6 

B 

1 

E 

6 

B 

2 

E 

6 

B 

3 

E 

6 

B 

4 


14 






: CRT ， 〇以、タト ： LPT 









単精度除算用サブルーチン 


RND 関数発生カウンタ 

RND 関数 ROM データカウンタ 

RND 関数 RAM データカウンタ 

RND 関数 RAM データ（単精度）4バイト X 8 組 

RND 関数の値 


USR 関数アドレステーブル2バイト X 10 組 
_(初期値 0 B 06 H ! Illegal function call ) 


ERR の値 （ ER し= EB 09 


未使用 


LPOS の値 


プリンタフラグ（出力先の指定. 


LPRINT ’， ’改行桁数 

WIDTH LPRINT の ( し PRINT ’ ： • 改 fj •桁，数） 


PRINT ’，’改行桁数 
PRINT ’，’改行桁数 


未使用 


CTRL +0フラグ（_而出力をさせないためのフラグ) 


BLOAD/BSAVE W フラグ（〇 :アドレス指定のみ1 
長さあり） 


メモリ上限値、 CLEAR 文の第2 パラメータ 


実行中の行番号 


テキスト開始アドレス 


〇 V ，/0 エラー メ ッセー ジアドレス 


ターミナル: 



:衍定なし FF :アドレス 








未使用 


RST 10用 wo 


前にアクセスしたドライブタイプ (8 イ 


丁 ERM 中を示すフラグ 


ンチ SS =2. 5インチ DS 


TERM リモートプロトコル闲フラグ （FF : ESC > とノーマル、 （)0 : ESC .,01 :〈) 


TERM half キー入力1メッセ ー ジ最初の文字 
TERM LPT イネ ー ブルフラグ （f • 8) 








READ で0だったら Out of Data 


ー ド中… FF ， 〇 PEN -1，1 A を人プ J のとき 


TERM LF / C 0 PY フラグ （ LF -1, COPY -2) 


ノゾモードフラグ （640*200 …0,640*400…】 ） 


カーソル フラグ 


カーソル〇 N/OFF = 


?ット{吏中フラグ （ READ --1, WRITE-FF ) 


未使用 


’，の 行番号 


INS モードフラグ 


、ペン補正値 


0 ) 






テキスト画面ウィンドウ上限 （ 実際のウィンドウ） 
テキスト画面ウインドウ下限（実際のウィンドウ） 


テキスト画面ウインドウ.上限 CONSOLE A ， B で一 
テキスト闽面ウインドウ下限 CONSOLE A ， B で— 


ビュート 


A +1の値 
B +1の値 
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ドレスバイト数 


E 6 B 5 


E 6 B 6 


E 6 B 7 







E 6 C 7 





















16 

16 

16 

16 

16 

16 

16 

16 

16 

16 


16 

16 

16 

16 

16 





ヌルキャラクタ•コード _ 


ントロールコードを CRT に出力するフラグ（リテラル•モード） 


未使用 _ 


ファンクシヨンキー表示フラグ _ 


テキストモード（カラー… FF ， B / W … 0) _ _ 


コピーモード（ノーマル… FF ， テキスト… FD , グラフィック… FA ) 


EDIT 1 番上の行番号 
EDIT — 番下の行番号 


8251エラー発生フラグ _ 


PORT 30 H に出力したデータ 
PORT 40 H に出力したデータ 
PORT 31 H に出力したデータ 
PORT E 4 H に出力したデータ 


テキスト VRAM アドレス TOP (初期値： F 3 C 8) 


LINE ) INPUT WAIT フラグ 


ングフラグ 


ON TIMES カウンう 


未使用 


Communication Buffer 〇 verflow ノフグ 


ベントキーフラグ（て)， S ， C ) 


レーブルアドレス 


キー入カサプレスフラグ 


ンキーストア中フラグ 


キー入カリピートカウンタ 


キーステータステーブル1(キー入カ ポー トデータの CPL ) 
キーステータステーブル2 (キー入力押している所 =1) 


I ツト使用中フラグ （ WRITE - FF , READ -1； 


COPY 文ドット対応グラフイック出力値カウンタ 


LPT OPEN フラグ 


COM 1 の WIDTH 


RS -232 C の使用中フラグ （8251 用コマン 


〇 N 割り込みの全部の個数 
〇 N 割り込みテーブルアドレス 
〇 N 割り込みフラグ（カウンタ） 


ファンクションキー1のデータ 
ファンクションキー2のデータ 
ファンクションキー3のデータ 
ファンクションキー4のデータ 
ファンクションキー5のデータ 
ファンクションキー6のデータ 
ファンクションキー7のデータ 
ファンクションキー8のデータ 
ファンクションキー9のデータ 
ファンクシヨンキー10のデータ 


ミナルモードの時のフ 
ミナルモードの時のフ 
ミナルモードの時のフ 
ミナルモードの時のフ 
ミナルモードの時のフ 


ン キー 6 
ン キー 7 
ン キー 8 
ン キー 9 
ン キー 10 


LINE 文サブルーチンジャンプテーブル1 
LINE 文サブル ー チンジャンプテーブル2 


CLEAR できる上限 （ E 5 FF 
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割り込み処理 ルーチン 

E 7 EA - RS -232 C 

E 808 -VRTC 

E 80 E-CLOCK 

E 814 --USER 

E 81 A - DISK 1 

E 820--- DISK 2 


B 


ス 

ス 


ドレス- 


テキス ト エン ド 


8 


E B 


ラベル領域開始アドレス 



CONT 実行再開文のアドレス 


E B 14 


実行停止時 （ END，STOP ) のときの行番号 


EB 12 


Work 


ラッフル ー チン） 


エラートラップルーチン中フラグ （ 


EB 0 F 


ON ERROR G 〇丁〇のとび先行 : のアドレス 


EB 0 D 


エラーを起こしたときのテキストボインタの値 


EB 0 B 


ERL の値 


E B 0 9 


1文実行前のテキストボインタの値 （ RESUME 文の為） 

1文実行前のスタック（エラーが起こったときスタックをもどすため) 


E B 0 5 
E B 0 7 


フラグ 

で次に発生させる行番号 
増分 


AUTO モー 
AUTO モー 
AUTO モー 


E B 0 0 

E B 01 
E B 0 3 


行番号—行アドレスの変更があったことを示すフラグ 


E AFF 


Work 


E AFD 


READ / INPUT フラグ、 USING ルーチンフラグ 


E AFC 


認識すべき変数のタイプ（変数認識ルーチン 


E AFB 


DATA 文エラー行番号 


E AF 9 


FOR 文テキストボインタ退避 


E AF 7 


Work (ガベージ 


E AF 5 


Work 


E AF 3 


フリーエリアの終わりのアドレス 


E A F 1 


スクリフタ 


ングデ 


テンポラリス 


E AEE 


30 


リンクスタックボインタ 
リングスタック （3 バイト X 10 組) 


E ACE 
E AD 0 


文字列エリアの始まりのア 


E ACC 


RST 10 H テキストポインタ 
RST 10 H 読んだ文字 
RST 10 H 用 FAC のタイプ 
RST 10 H 用 FAC 


E AC 0 
E AC 2 
E AC 3 
E AC 4 


、数字—行番号フラグ 


中間言語— 1 


E ABF 


中間言語^ 一一 ^リストルーチン DATA 文，” 
に立つフラグ 


の中など中間言語に変換しないとき 


E ABE 


FAC の夕 


変数領域ルーチン中で DIM 文から呼ばれたことを示す 


E ABC 


(未使用） 

行入カバッフ7 


E 9 B 8 

E 9 B 9 




(未使用）’：’が入っている 
中間言語バッファ（最後の数バイトは使用されな 


E 8 7 9 

E 8 7 A 


配列変数テキストボインタ退避 


E 8 7 7 


変数名3文字目以降の長さ 
変数名バッファ （3 文字目以降) 


E 8 5 0 
E 8 51 


モニタ用ルーチン 


E 8 2 6 


7 E A 
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アドレス 

バイト数 

機 能•用 途 

EB 1 A 

2 

ラベル登録済みフラグ 

E B 1 B 

2 

単数変数領域開始アドレス 

E B 1 D 

2 

配列変数領域開始アドレス 

E B 1 F 

2 

フリーエリアの始まりアドレス（変数領域の最後 +1) 

E B 21 

2 

READ 文データポインタ 

E B 2 3 


変数の暗黙型 （ DEFINT , DEFSTR などによって変更される） 

E B 3 D 

2 

FN 引数スタックポインタ 

E B 3 F 

2 

FN 引数テーブル1の長さ 

E B 41 


FN 引数テーブル1 

E B A 5 

2 

FN 引数スタックボインタを指す 

E B A 7 

2 

FN 引数テーブル2の長さ 

EB A 9 


FN 引数テーブル2 

EC 0 D 

1 

FN 引数テーブル1サーチ中フラグ （ 変数認識ルーチン） 

EC 0 E 

2 

単純変数/ FN 引数サーチ終わりアドレス+1(変数認識ルーチン） 

EC 10 

1 

FN テーブルもサーチしなさいというフラグ （ FN 実行中のフラグ )（ 変数認識ルーチン） 



Work 



FN ネステイングレベル 

EC 15 


INPUT 文でデータの数をかぞえるために空読みするフラグ 

■OB 


NEXT 文アドレス 

EC 18 

1 

NEXT 文フラグ （0 : FOR 文からきたことを示す。 FOR 文で NEXT 文の処理ルー 
チンを使うから。） 

EC 19 

4 

FOR 文初期値 

EC 1 D 

2 

NEXT 文行番号 

E C 1 F 

1 

OPTION BASE 文の{直 

EC 2 0 

1 

OPTION BASE 文実行^斉フラグ 

EC 21 

1 

中間言語—リストのスペースコントロール、 CALL 文 Work 

EC 2 2 

1 

INPUT 文での’？’を出力するかどうかのフラグ、 CALL 文 Work 

EC 2 3 

2 

CHAIN 文 ( EAF 1， F 2) の退避 

EC 2 5 

2 

未使用 

EC 2 7 

1 

暗号化セーブ中であることを示す。 

E C 2 8 

1 

平文化ロー ド中であることを示す。 

E C 2 9 

1 

プログラムプロテクトフラグ 

EC 2 A 

1 

CHAIN 文 MERGE フラグ 1 

EC 2 B 

1 

CHAIN 文 DELETE フラグ 

EC 2 C 

2 

CHAIN 文 DELETE エンドアドレス 

EC 2 E 

2 

CHAIN 文 DE し ETE トツフ。アドレス 

E C 3 0 

1 

CHAIN 文フラグ 

E C 31 

2 

CHAIN 文実行行番号 ( 

EC 3 3 

8 

SWAP 川 FRG ( Floatingpoint Register ) 


E C 3 B 

：___ i __ j 

TRON フラグ 

EC 3 C 

EC 3 D 

EC 3 E 

EC 3 F 

E C 4 0 

E C 41 

EC 4 2 

E C 4 3 

EC 4 4 


倍精度で計算中に 使用す る最下位バイ ト 

FAC . 倍精度仮数部域下位 

FAC . 倍精度仮数部 

FAC . 倍精度仮数部 

FAC . 倍精度仮数部 

FAC . 整数型下位、単精度仮数部下位、倍精度仮数部 

FAC . 整数型上位、単精度仮数部中位、倍精度仮数部 

FAC . 単精度仮数部上位、倍精度仮数部 M 上位 

FAC . 単精度指数部、 倍精度指数部 

E C 4 5 

1 

FAC 演算用フォーマツトでの符号 

E C 4 6 

1 

ov ，/ o エラーフラグ（演算） 
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EC 4 7 

1 

〇 V フラグ（文字列—数値） I 

EC 4 8 

1 

絶対値 < 1のとき非指数形式にするフラグ 

E C 4 9 

1 

計算中に使用する最下位バイト 

EC 4 A 

7 

倍精度用 FRG 仮数部 

E C 51 

1 

倍精度用 FRG 指数部 

E C 5 2 


数値を文字列にするときのバッファ 

EC 6 A 


未使用 

EC 6 D 


倍精度除算用 Work 

EC 7 5 


未使用 

EC 7 A 


取精度乗算用 Work 

E C 7 D 

1 

接続されているドライブ数 

E C 7 E 

1 

オープンできるファイル数 

E C 7 F 

2 

フアイルバッファアドレステ ー ブルのアドレス 

E C 81 

2 

ドライブボインタのアドレス 

EC 8 3 

2 

ヌルバッファアドレス 


1 

カレントドライブ#号 

EC 8 6 

2 

カレント ドライブテーブルのアドレス 

EC 8 8 

2 

カレントファイルバッフアのアドレス 

EC 8 A 

2 

ディレクトリサーチ時のファイル名ボインタ 

EC 8 C 

1 

( EF 8 A ，8 B ) のセクタ中のファイル#号 

EC 8 D 

1 

( EF 8 A ，8 B ) のセクタ#号 

EC 8 E 

1 

ファイルモード （ OPEN ) LOAD ， R のフラグ 

E C 8 F 

9 

ファイル名1 

EC 9 8 

9 

ファイル名2 

EC A 1 

1 

DSKO $， DSKI $ トラック番号 

EC A 2 

1 

DSKO $， DSKI $ セクタ番号 

EC A 3 

1 

bit 7 :すべてのファイルを close しない 

bitO :ヌルバッファは close しない 

EC A 4 

1 

SAVE 中であることを示す 

E C A 5 


ディスクパラ メータ 



ECA 5 M 大トラック番号 

ECA 6 1トラックあたりのセクタ数 

ECA 7 片而= 0，両面=1 



ECA 8 1トラックあたりのクラスタ数 

E C A 5 


ECA 9 ボリュームあたりのクラスタ数 

ECAA ディレクトリトラック#号 

ECAB 1クラスあたりのセクタ数 

ECAC FAT の関始セクタ番号 

ECAD FAT の終了セクタ番号 

ECAE FAT の数 

ECAF ディスク M 性の入っているセクタ番号 

ECB 0 未使用 （1 クラスタあたりのセクタ数 X 2) 

ECB 1 

2 

BSAVE END アドレス 

ECB 3 

1 

未使用 

E C B 4 

1 

DISK IVW エラー回数 （ N 88 DISK - BASIC では使われない） 

E C B 5 

1 

DISK R / W エラー回数 （4 回になると DISK I / O エラー） 

E C B 6 

1 

リードアフターライトフラグ 

ECB 7 

1 

EBCDIC コードフラグ 

EC B 8 

1 

( ECB 7) 退避 

ECB 9 

2 

未使用 

E C B B 


フックアドレステーブル（別表） 
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レスバイト数 



E E 0 E 




E F 0 A 
E F 0 B 


E F 0 D 


E F 0 E 


EF 0 


E F 10 










I / O 処理ルーチンジャンプテーブル（別表） 
DISK 命令ジャンプテーブル（別表） 

ON 割り込みジャンプテーブル（別表） 


R 0 M 3 をコールしたときの Acc , リターンしたときの Acc 
R 0 M 3 をコールしたときの HL 


COPY 4,5のフラグ ( COPY 4-2, COPY 5--3) 


一 卜 E 6 H に出力したデータ（インタラブトマスク） 


DMA FD 使用中フラグ 


FD イニシャライズ中フラグ 


、ズ中〇になる 


DMA FD イニシ 


論理転送アドレス 


ミニ FD TIME OUT までの時間 


高速転送フラグ 


DMA FD 転送ルーチン中は FF ( BUSY ) 





READ 







E F 2 


E F 2 2 


E F 2 3 


EF 2 4 





DMA FD R / W スイッチ 


DMA FD ドライブ番号、サーフヱス番号 
DMA FD トラック番号 
DMA FD セクタ番号 
DMA FD セクタ数 


DMAFD 物理転送アドレス 


DMAFD タイマ 


DMAC へのコマンド （ READ =40 H , WRITE =80 H ) 


FDC へのコマンド （READ =46 H , WRITE =45 H ) 


DMA FD エラー 番号 （READ =87 H , WRITE =86 H ) 


DMA FD リトライ減算カウンタ 


未使用 


ステータス〇 FDC Result phase で読んだ値 

ステータス1 FDC Result phase で読んだ値 

ステータス2 FDC Result phase で読んだ値 

シリンダ番号 FDC Result phase で読んだ値 

ヘッド（サーフェス）番号 FDC Result phase で読んだ値 
セクタ番号 FDC Result phase で読んだ値 

セクタ]^ _ FDC Result phase で読んだ値 


INIT 



ステータス1 
ステータス2 

シリンダ番号 




E F 3 F 

E F 4 0 


E F 4 : 


E F 4 9 


E F 4 A 


E F 4 B 



DMA FD ドライブ ステータステーブル】 （2 バイト X 4) 
DMA FD ドライブ ステータステーブル 2 (2 バイト X 4) 
DMA FD エラー番号 


ンタラプトウェイトフラグ 


割り込みレベル退避 


FDC INT ステータス （ ST 0 






E F 4 D 
E F 4 E 
E F 4 F 
E F 5 0 
E F 51 



マージンデータテーブル ポインタ （2 バイト X 4) 


B し〇 AD の R フラグ 


R / W セクタ数 


< EF 4 B 〜 EF 5 C は DMA FD 用の定数> 

ドライブ ステータステーブル アドレス 


マージンコン ト ロールボー トアドレス 

インタフェースポードチェックボートアドレス （bitO = 0•••あり） 

モーターコン ト ロールポ ー ト アドレス （ PRECOMPENSATION のため） 

最大シリンダ番号 

まん中のシリンダ番号（このシリンダ以上では PRECOMPENSATION を使う） 
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能•用 


途 


アドレス 

バイト数 

機 能•用 途 

E F 5 2 

1 

1トラックあたりのセクタ数 

E F 5 3 

1 

GAP 3 の長さ （未使用） 

E F 5 4 

1 

FDC ステータス ポー トアドレス 

E F 5 5 

1 

FDC データボートアドレス 

E F 5 6 

1 

FD レディデータ （5 インチ = 10 H ，8 インチ = 20 H ) F 3 H に OUT する 

E F 5 7 

1 

Step rate time 

EF 5 8 

1 

head load time 

E F 5 9 

1 

DMAC モードデータ 

EF 5 A 

1 

DMAC チヤネルアドレス 

E F 5 B 

1 

DMAC ベースアドレス 

EF 5 C 

1 

インタフェースイネーブルデータ. F 3 H に OUT する 

E F 5 D 

1 

カレントドライブタイプ（0，1= DMA , 2=ミニ片面，3=ミニ| 山 ]而） 

EF 5 E 

1 

未使用 

EF 5 F 

1 

各ディスクタイプごとのドライブ番号 

E F 6 0 

1 

DMA 8インチのドライブ数 

E F 61 

1 

DMA 5インチのドライブ数 

E F 6 2 

1 

ミニ FD のドライブ数 

E F 6 3 

1 

ミニ FD 両面/片面（片面= 0，尚面 = 80 H ) [PC -8801 mk 11では闽面] 

E F 6 4 


ドライブタイプ対応表（ドライブ番号—ドライブタイプ） 

E F 7 0 

1 

未使用 

E F 71 

1 

TERM センドイネーブル 

E F 7 2 

1 

TERM HALF / FUL し 

EF 7 3 

2 

TERM テキスト•ポインタ退避 

E F 7 5 

1 

TERM リテラルフラグ （f *6) : 

E F 7 6 

2 

TERM ROLL バッファの最後を指す 

EF 7 8 

2 

TERM ROLL データ（画面より上）の域後を指す 

E F 7 A 

2 

TERM ROLL パ'ツファの最衫 J を指す 

EF 7 C 

2 

TERM ROLL データ（画面より下）の M 後を指す 

EF 7 E 

1 

TERM ROLL バッファがあるかないかを示す （1 のときある） 

EF 7 F 

1 

PORT 30 H ( IN ) の CPL (ディップスイッチ 1) 

E F 8 0 

1 

PORT 31 H ( IN ) の CPL (ディップスイッチ 2) 

E F 81 

1 

ライトペン Y 座標 

E F 8 2 

1 

ライトペン X 座標 

E F 8 3 

2 

1行入力最初の画而上位置 

EF 8 5 

1 

1行入力最後の桁 

E F 8 6 

1 

カーソル位置 Y (1~) 

E F 8 7 

1 

カーソル位置 X (1 —） 

E F 8 8 


両面縦 

E F 8 9 

1 

画面横 

EF 8 A 

2 

アトリビュートアドレス 



セットするアトリビュートコード 

E F 8 D 


ァトリビュート析 

E F 8 E 


アトリビュート桁カウンタ 

E F 8 F 


CRT に表示した文字 



ファンクションキー表示開始番号 （0 または 5) 

■HB 

mam 

COPY GVRAM コピー 用 バッファ 

E F 9 9 


未使用 

E F 9 A 


テキスト画面行縦続コード（〇 :つながっている、 0 AH : M 、 その他：切れている） 

EFB 3 

l 

未使用 

E F B 4 

l 

エディットモードフラグ 


E F B 5 2 行サーチ、テンボラリアドレス 
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E 

F 

B 

7 

E 

F 

B 

9 

E 

F 

B 

A 

E 

F 

B 

C 

E 

F 

B 

E 

E 

F 

C 

0 

E 

F 

C 

? 

E 

FC 

4 

E 

F 

C 

6 

E 

F 

C 

m 



EF 


E F 



行 サーチ、サーチした 行の 1 つの前の行のアドレス_ 


01=ェテイット 、 rF = lrr 入力、00= ノーマノレ_ 


エラー位置を決めるため、テキストリードルーチンで HL の位置を SAVE しておく 
エラー位置 （ HELP でカーソルが移動するところ） 

エラーのあったところの行番号 

中間コード—リスト形式にしたときの （EFBC ) に対応する エラー 位置 
エラー 行をリストしたときの エラー 位置の カーソル 座標 


LINE ) INPUT WAIT 文待ち時問 

LINE ) INPUT WAIT 用減算カウンタ （0. 1秒単位） _ 


ON TIME $ W 減算カウンタ （2 秒単位） 


キューテーブル （6 バイト X 2 組） EFCD 〜 D 2 はキー入カバッファ用 
EFCD EFD 3- Put オフセット 


CE 

CF 

D 0 


D 4". Get オフセット 
Do-*-Back Character 
D 6 •••キューの長さ (2 n - l ) 


E F F 

9 

E F F A 

EFF 

B 


32 



E F F ： 


E F F E 


E F F F 





-0 0 2 


F 0 0 3 


: 0 () 


: 0 () 6 


F 0 0 7 


F 0 0 9 



DI ， D 2 D 7， D 8 •••キューアドレス 


キー入カバッファ 


キースキヤンフラグ（3 =押していない 、 FF =押したまま、2 =新しくキーを押した） 


キースキャン 新しく押された キーのビッ トが1 


キー ステータステーブル2 ( E 6 DC 〜 E 6 E 7) 用ポインタ 


キーのコード 


入力した キーの ASCII コード 


キー 人カシフト キーのポー ト データ 


前回シフト キーのポー ト データ 


CAPS LOCK フラグ 


シフト#号 (0= ノーマル， 1 = SHIFT ， 


ンキーア ドレス 



カナ， 


カナ SHIFT , 5 = GRPH ) 


1 ル属性 


、テープリードエラー 禁止フラグ（ヘッダ サーチ 中: 


卜 STOP キーで NEW しないフラグ（ロー ド中は0 : NEW する） 




ット Back character 


ット ボーレー 


ベ 




(FB = 1200 ボー ， FA = 600 ボー 


フラグ 


F 0 0 


FOOD 



TERM X パラメータ 有効フラグ& ステータス （3，ハ0) 


ファンクシヨンキー#号 


時問用バッファ 

FOOD 秒 （BCD ) 
F 00 E 分 （BCD ) 
F 00 F 時 （BCD ) 

F 010 日 （BCD ) 

F 011 月（バイナリー） 
F 012 年 （BCD ) 


PUT ® 文条件またはフオアグラウンド.バックグラウンドがあるかどうかのフラグ 


PUT @ 文フォアグラウンドカラーパレット番号 
PUT @ 文バックグラウンドカラーパレット番号 


PUT @ 文フォアグラウンド PUT 用マスク 
PUT @ 文バックグラウンド PUT 用マスク 


PUT @ 文 Work (( F 014) のコピー） 
PUT @ 文 Work (( F 015) のコピー） 


F 0 
F 0 




H 


スクリーン座標 X 
スクリーン座標 Y 
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ドレスバイト数 


F 0 


F 

0 

2 

0 

F 

0 

2 

1 

F 

0 

2 

3 

F 

0 

2 

5 

F 

0 

2 

7 

F 

0 

2 

9 

F 

0 

2 

B 

F 

0 

2 

D 

F 

0 

2 

F 

F 

0 

3 

1 

F 

0 

3 

3 

F 

0 

3 

5 

F 

0 

3 

6 

F 

0 

3 

7 

F 

0 

3 

8 

F 

0 

3 

9 

F 

0 

3 

B 

F 

0 

3 

D 

F 

0 

3 

E 

F 

0 

3 

F 

F 

0 

4 

0 

F 

0 

4 

1 

F 

0 

4 

2 

F 

0 

4 

4 

F 

0 

4 

5 

F 

0 

4 

6 

F 

0 

4 

7 

F 

0 

4 

8 

F 

0 

4 

9 

F 

0 

4 

A 

F 

0 

4 

B 


F 0 4 



F 

0 

4 

E 

F 

0 

4 

F 

F 

0 

5 

1 

F 

0 

5 

2 

F 

0 

5 

4 

F 

0 

5 

6 

F 

0 

5 

7 

F 

0 

5 

8 

F 

0 

5 

9 

F 

0 

5 

m 

F 

0 

6 

2 

F 

0 

6 

4 

F 

0 

6 

6 

F 

0 

6 

8 


F 0 6 A 



F 0 6 ； 




能•用 


ット番号 （ COLOR 文) 





















フォアグラウンド カラー パ-, .…ノ _ _ 

バックグラウンドカラーパレット番号 （ COLOR 文） 


ボーダーカラーのカラーコード （ PC -8801 mk II では無意味） 


GET @ 文パターンの横のドット数、 LINE 文横のドット数 
GET @ X パターンの縦のドット数、 LINE 文縦のドット数 


LINE 文ラインスタイ, 


LP ( Last Referenced Point ) のスクリーン座標 X 
LP のスクリーン座標 Y 


ビューポート左 X 
ビューポート右 X 
ビューポート上 Y 
ビューポート下 Y 


GVRAM のリード/ライトするメモリのアドレス 
上記のメモリの中でのビット位置（マスクパターン） 


GVRAM 0 のマスクパターン 
GVRAM 1 のマスクパターン 

GVRAM 2 のマスクパターン _ 


1つの GVRAM あたりの縦の座標の最大 （=199) _ 


GET @， PUT ® 文 W 列データボイン 


GET @, PUT @ 文横のバイ_卜数 _ 


GET @， PUT ® 文 M 右バイト中のドット位置 

GET ®, PUT ® 文-左バイト中のドット位置_ 


GET ®, PUT ® 文 M 左バイト用マスク 
GET ®, PUT ® 文 M 右バイト用マスク_ 


GET ® 文サブルーチンアドレス（条件によって変わる: 


PAINT 文領域色パレット#号、 LINE の色パレット#号_ 


PAINT 文境界色パレット#号 
境界色による GVRAM 0 川マスク 
境界色による GVRAM 1 ⑴マスク 

境界色による GVRAM 2 用マスク _ 


PAINT 文行き止まり判断用フラグ _ 


未使… _ _ 


アクティブページ （ COPY 文、 PUT ® 文などの Work ) _ 


ペアレジスタ退避用 _ 


レジスタ退避用 _ _ 


PAINT 文タイルストリングの先頭のアドレス 

PAINT 文タイルストリングとバックグラウンドストリングが等しいことを示す。 
PAINT 文タイルストリングの終わりのアドレス+1 
PAINT 文バックグラウンドストリングの先頭のアドレス 
PAINT 文タイルペイントを行なうかどうかのフラグ 
(タイルストリングの長さ）¥ M — 1 (M :カラーモード3， B / W モード 1) 
PAINT 文タイルストリングカウンタ _ 


バックグラウンドストリングデータ （8 ドット分）_ 


未使用 _ 


PAINT 文で使えるフリーエリアの大きさ _ 


PAINT 文サーチポイント • キューの長さ 



PAINT 文 サーチ ボイン 
PAINT 文 サーチ ポイン 


PAINT 文サーチ方向 


PAINT 文右へペイント 


PAINT 文前回ペイント 


ューの 終わり 
ューの先頭 



ドット数 


、ヘント数 
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F 0 6 F 

1 

PAINT 文左へペイントしたかどうかのフラグ 

F 0 7 0 

1 

PAINT 文右へペイントしたかどうかのフラグ 


1 

GET @， PUT @ のフラグ （ GET @".0， PUT @--80 H ) 

F 0 7 2 

2 

CIRCLE 文(楕円率) *256 (比率 = 1...100 H ， 比率 = 0. 5 or 2...80 H ) 

F 0 7 4 

2 

CIRCLE 文（開始角度，終了角度のうち小さぃ方の値） X 90 (未指定000 0) 

F 0 7 6 

2 

CIRCLE 文（開始角度，終了角度のうち大きぃ方の値） X 90+1 (未指定 FFFF ) 

F 0 7 8 

2 

CIRCLE 文 Work 

F 0 7 A 

1 

開始角度、終了角度の大小を示すフラグ（開始〉終了… FF 、 開始$終了…〇〇) 

F 0 7 B 

1 

扇形を書くのかどうかのフラグ。1で書く。（ビット7 .••終了時ビット〇…開始時） 

F 0 7 C 

2 

CIRCLE 文半径 X SQR (2)/2 

F 0 7 E 

2 

CIRCLE 文 Work 

F 0 8 0 

2 

CIRCLE 文円周上の点の X 座標（中心に対して） 

F 0 8 2 

2 

CIRCLE 文円周上の点の Y 座標（中心に対して） 

F 0 8 4 

1 

CIRCLE 文比率1以上かどうかのフラグ （1 より大…01、1以下… 00) 

F 0 8 5 

2 

CIRCLE 文 Work 

F 0 8 7 

1 

スクリーンモード（0，1，2) 

F 0 8 8 

1 

画面スイッチ(0，1，2, 3) 

F 0 8 9 

1 

リート7ライトページセレクトポート 

F 0 8 A 

1 

ページ（カラーモード 3， B / W モード 1) 

F 0 8 B 

1 

アクティブページセレクトボート（カラーモードでは 5 C ) 

F 0 8 C 

1 

ディスプレイページ 

F 0 8 D 

2 

縦のドット数（640 X 400—400， 640 X 200—200) 

F 0 8 F 

1 

ウインドウフラグ。 WINDOW 文が実行されると1になる。 

F 0 9 0 

2 

ビューボート幅 （Sx 2 — Sx 1 ) 

F 0 9 2 

2 

ビューボート丈 （Sy 2 — Sy 1) 

F 0 9 4 

4 

ウインドウ幅 （ Wx 2 — Wx 1) 

F 0 9 8 

4 

ウインドウ丈 （Wy 2- Wy 1) 

F 0 9 C 

4 

ビューボート幅/ウインドウ幅 

F 0 A 0 

4 

ビューボート丈/ウインドウ丈 

F 0 A 4 

4 

LP のワールド座標 X 

F 0 A 8 

4 

LP のワールド座標 Y 


4 

グラフィック処理用 Work 

F 0 B 0 

4 

ウィンドウ左 X 

F 0 B 4 

4 

ウィンドウ右 X 

FOBS 

4 

ウィンドウ上 Y 

F 0 BC 

4 

ウィンドウ下 Y 

F 0 C 0 

2 

ビューボート （Sx l ， Sy 1) の GVRAM のメモリ•アドレス+80 

F 0 C 2 

1 

ビューポート （Sx l ， Sy 1) の GVRAM セレクトボート 

F 0 C 3 

2 

ビューボート （ Sxl ， Sy 2) の GVRAM メモリアドレス 

F 0 C 5 

1 

ビューボート （ Sxl ， Sy 2) の GVRAM セレクトボート 

F 0 C 6 

2 

ビューポート （ Sxl ，0) のメモリアドレス 

F 0 C 8 

2 

ビューポート （ Sx 2，0) のメモリアドレス 

F 0 C A 

1 

ビューポート左端の対応ビット 

F 0 C B 


ビューポート右端の対応ビット 

F 0 C C 

2 

PAINT 文サーチするドットライン（ビューボート）の左端メモリアドレス 

F 0 C E 

2 

PAINT 文サーチするドットライン（ビューポート）の右端のメモリアドレス 

F 0 D 0 

3 

NEW ON 1で N - BASIC への切り換えに使う。 

F 0 D 3 


カセット入カバッファ 

F 15 3 

1 

RS -232 C SI / SO フラグ（入力） 

F 15 4 

1 

RS -232 C SI / SO フラグ（出力） 
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アドレス 

バイト数 

機 能•用 途 

F 21 E , 


未使用 

F 3 0 0 

32 

インタラプトべクトル 

F 3 2 0 


未使用 

F 3 C 8 

FF 8 0 

120 

テキスト VRAM 

ヌルライン 

FFF 8 


未使用 
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別表 1 N 88 DISK - BASIC 使用時のフックアドレステーブル 


アドレス 

内 容 

E C B B 

JP8A12 ディスク情報セット 

ECBE 

RET 

ECC 1 | 

JP A736 M もしない 

ECC 4 

JP 9BC5 ディスク SAVE ルーチン 

EC C 7 

RET 

ECC A 

RET 

E C C D 

JP 8E58 ドライブテーブル INIT, 

ID 実行 

EC D 0 

JP 9FFD ディスク GET#/PUT# 

EC D 3 

JP 91A5 EDIT 行#.けセット UP 

EC D 6 

JP 91BE EDIT 行番号セット DOWN 

E C D 9 

JP9C51 デイスク LOAD ルーチン 

EC DC 

JP A6E3 LINE INPUT# READ BACK 

ECDF 

RET 

ECE 2 

JP9118 ROLL DOWN キー 

EC E 5 

JP90CC ROLL UP キー 

ECE 8 

JP A08D シーケンシャル出力 

ECEB 

RET 

ECEE 

JP A0D4 シーケンシャル入力 

ECF 1 

RET 

ECF 4 

RET 

ECF 7 

RET 

ECFA 

RET 

ECFD 

RET 

E D 0 0 

RET 

ED 0 3 

RET 

ED 0 6 

JP8E55 デバイス#デフオルトセット 

ED 0 9 

JP8E9A GET デバイス# 

ED 0 C 

RET 

ED 0 F 

JP 8F0A シーケンシャル 人力 

ED 12 

RET 

ED 15 

RET 

E D 18 

RET 

ED 1 B 

RET 

ED 1 E 

RET 

ED 21 

RET 

E D 2 4 

JP8DE51 行入力後の処理 

ED 2 7 

JP8FA4 ディスク 関数評価 

ED 2A 

RET 

ED 2 D 

JP 8FBD ファ イ ル 関数評価 
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アドレス 

内 容 

E D 3 0 

RET 

E D 3 3 

RET 

E D 3 6 

RE 丁 

E D 3 9 

RET 

ED 3 C 

JP 8F06 LIST の先頭 

ED 3 F 

RET 

E D 4 2 

JP91E31 文字出カカーソル補正 

E D 4 5 

RET 

E D 4 8 

RET 

E D 4 B 

RET 

E D 4 E 

RET 

ED 51 

RET 

ED 5 4 

RET 

E D 5 7 

RET 

ED 5 A 

JP8F7C 倍精度関数評価 

ED 5 D 

RET 

ED 6 0 

RET 

ED 6 3 

RET 

ED 6 6 

JP8FDD エラーメッセージセット 

E D 6 9 

RET 

ED 6 C 

RET 

ED 6 F 

JP 9B21 CLOSE デイスクファイル 

ED 7 2 

RET 

ED 7 5 

JP8F41 式の評価 

ED 7 8 

RET 

ED 7 B 

RET 

ED 7 E 

RET 

ED 81 

RET 

ED 8 4 

RET 

ED 8 7 

RET 

ED 8 A 

RET 

ED 8 D 

RET 

E D 9 0 

RET 

ED 9 3 

RET 

ED 9 6 

RET 

E D 9 9 

RET 

ED 9 C 

RET 


ED 9 F 

JP AD48 プロテクトチェックエ 

ED A 2 

JP ACC1 SAVE 暗号化 

ED A 5 

JP AD05 LOAD 平文化 

ED A 8 

JP AD51 プロテクトチェック n 

ED AB 

JP 9A01 OPEN ディスクファイル 

ED AE 

RET 
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アドレス 

EDB 

1 

EDB 

4 

EDB 

7 

EDB 

A 

EDB 

D 

E D C 

0 

E D C 

3 

E D C 

6 

EDC 

9 

EDCC 

EDC 

F 

EDD 

2 

EDD 

5 

EDD 

8 : 

EDD 

B 

EDD 

E 

EDE 

1 

EDE 

4 

EDE 

7 

EDE 

A 

EDE 

D 

EDF 

0 

EDF 

3 

EDF 

6 

EDF 

9 

EDFC 

EDFF 

EE 0 

2 

EE 0 

5 

EE 0 

8 

EE 0 

B 


JP 994B ドライブポイントセット 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

JP8E4B CHAIN キャンセル 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

JP 908B ROM Verl.O のためのパッチ 

RET 

RET 

JP 9977 マウント確認 

RET 

RET 

RET 

RET 
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別表 2 N 88 DISK - BASIC 使用時の I / O 処理ルーチンジャンプ 

テーブル 


アドレス 


EE 0 E 
EE 11 
E E 14 
EE 17 
EE 1 A 
EE 1 D 
EE 2 0 
EE 2 3 
EE 2 6 
EE 2 9 
EE 2 C 
EE 2 F 
EE 3 2 
EE 3 5 
EE 3 8 
EE 3 B 
EE 3 E 
EE 41 
E E 4 4 
EE 4 7 
EE 4 A 
EE 4 D 
E E 5 0 
E E 5 3 
E E 5 6 
EE 5 9 
EE 5 C 
EE 5 F 
EE 6 2 
E E 6 5 
E E 6 3 


内 


容 


JP4DC1 OPEN 
JP4DC1 CLOSE 
JP4DC1 PUT/GET 
JP4DC1 OUTPUT 
JP4DC1 INPUT 
JP4DC1 LOC 
JP4DC1 LOF 
JP4DC1 EOF 
JP4DC1 FPOS 
JP4DC1 READ BACK 
JP4DC1 WIDTH# 

JP 9043 OPEN 
JP 483D CLOSE 
JP 905F PUT/GET 
JP 9051 OUTPUT 
JP0B06 INPUT 
JP 0B06 LOC 
JP 0B06 LOF 
JP 0B06 EOF 
JP0B06 FPOS 
JP0B06 READ BACK 
JP0B06 WIDTH# 

JP 9001 OPEN 
JP 483D CLOSE 
JP 9018 PUT/GET 
JP0B06 OUTPUT 
JP 900C INPUT 
JP 903C LOC 
JP 0B06 LOF 
JP 0B06 EOF 
JP0B06 FPOS 


COM2, 3 


SCRN 


KYBD 


EE 6 B JP 9032 READ BACK 
EE 6 E JP0B06 WIDTH# 
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別表 3 N 88 - DISK - BASIC 使用時の DISK 命令 

ンヤンブナ ー フル 


アドレス 

内 容 

EE 71 

JP A72B Disk I/O error 

EE 7 4 

JP A72E Disk offline 

E E 7 7 

JP8EC3 DSKF 

EE 7 A 

JP A98C CHAIN 

EE 7 D 

JP 88E9 SEARCH 

EE 8 0 

JP A875 WHILE 

E E 8 3 

JP A89F WEND 

EE 8 6 

JP AC75 WRITE 

EE 8 9 : 

JP A916 CALL 

EE 8 C 

JP9DAD SET 

EE 8 F 

JP 99B6 NAME 

EE 9 2 

JP 9BAD KILL 

E E 9 5 

JP A185 DSKI$ 

EE 9 8 

JP A1C4 DSKO$ 

EE 9 B 

JP 9F2F FILES 

EE 9 E 

JP 9F2A LFIELS 

EE A 1 

JP 4DC1 WBYTE 

EE A 4 

JP4DC1 RBYTE 

EE A 7 

JP4DC1 POLL 

EE A A 

JP4DC1 ISET 

EE AD 

JP4DC1 IRESET 

EEB 0 

JP4DC1 STATUS 

EEB 3 

JP4DC1 STATUS 

EEB 6 

JP4DC1 CMD 

EEB 9 

JP4DC1 IEEE 

EE BC 

JP 8803 ROLL 

EE BF 

JP A7A8 BLOAD 

E E C 2 

JP A73D BSAVE 

EEC 5 

JP AC72 COMMON 

EEC 8 

JP89B3 ATN 
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別表 4 Nss disk - basic 使用時の on 割り込みアドレステーブル 


アドレス 

内 容 

EECB 

ON STOP 

EECE 

ON C0M1 

EED 1 

ON COM2 

EED 4 

ON COM3 

EED 7 

ON PEN 

EED A 

ON TIMES 

EEDD 

ON HELP 

EEE 0 

ON KEY(l) 

EEE 3 

ON KEY(2) 

EEE 6 i 

ON KEY(3) 

EEE 9 

ON KEY(4) 

EEEC 

ON KEY(5) 

EEEF : 

ON KEY ⑹ 

EEF 2 

ON KEY(7) 

EEF 5 

ON KEY(8) 

EEF 8 

ON KEY(9) 

EEFB 

ON KEY(10) 

EEFE 


EF 01 


E F 0 4 


EF 0 7 
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17-1-3 モニタ 

A ) モニタ ROM 部分 



アドレス 


6 0 0 0 


6 0 0 


6 0 4 7 


6 0 8 8 


6 0 F 0 


6 10 6 





し夕 


i ニタ . 


RST 38 H 


スタート 


6 2 5 4 


6 3 0 8 


6 4 0 6 


6 4 7 9 


6 4 9： 


6 4 A 6 


6 4 0 8 


6 7 5 4 


6 8 0 6 


6 9 5 


6 9 7 6 


6 D 0 2 



FC 


6 F D 7 


ルーフ 



ーブル 


コマン ドアドレス 

テーブル 



X コマン 



* B コマン 



6 

E 

7 

- W 

A 

6 

E 

8 

A 

6 

E 

E 

E 

6 

F 

8 

0 

6 

F 

9 

I 

A 

6 

F 

~A 

7 

— 



6 F 0 ： 




0 2 5 


プリンタ出力 


GET パラメ ー 


数値出力 I 


数値出力 n 


文字列出力 


BIN —ASCII 


HL ， DE 比較 


1文字入力 


小文字一人文 2 


7 0 2 E 文字列出力 I 


CR , LF 出力 



DB ’DE ’ 



ブレークポイントからとんでくる。 





i ニタ使⑴できるコマンド （22 個） 


れ コマン ドに対する処理アドレスのテーブル。 
(2 バイト X 22 組） 


メモリ内容を書き換える。 


メモリ内容を出力する。 



CPU レジスタに関するコマンド。 


CPU レジスタを変更する。"… 
CPU レジスタを全て出力する。 


6260 

62 DA 


メモリ内容を定数で埋める。 


ユーザー.プログラムを実行する。 


人カポートの値を読み込む。 


出カ ポー トへデータを 出力す る。 


とリの内容を転送する。 


スクリーンエディタでメモリ内容を変更する。 



サブ コマンドテーブル 


6541〜 654 B 


サブコマンドアドレステーブル 654 C -6561 


CTRL-f 
CTR し b 

up arrow 
down arrow 
right arrow 
left arrow 
R 〇しし UP 

ROLL DOWN 

edit から抜ける 


65 BD 

65 C 4 

65 CB 

65 EC 

6618 

662 F 

6649 

669 C 

66 EE 






メモリ 内容を カセットテープにセーブす る。 


マンド……6806カ セツ トテープの内容をベリ ファ イする。 
マンド……6807カ セツ ト テープからロー ドす る。 


8進、16進の切り換えを行なう。 


機械語をデイスアセンブルする。 


入力行をアセンブルする。 


BASIC へ戻る。 


プリンタスイツチを切り換える。 


画面に出力した行をプリンタに出力する。 


コマン ド行から パラメータを 得る。 （ HL 


1バイトの数値を出力する。 


2バイトの数値を出力する。 （ HL レジスタ） 


文字列を出カバッファに書き込む。 


BIN コードを ASCII コードに変換する。 


HL レジスタと DE レジスタとを比較する。 


キーポードから1文字入力する。 


小文字から大文字に変換する。 


(HL ) から （HL ) =0の前までを出力する。 


CR,LF コー ドを出力する。 
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アドレス 

項目名 

機 能 

7 0 4 4 

スペース出力 

スペース文字を出力する。 

7 0 4 C 

文字列出力 n 

(HL ) から （HL ) のビット7が1になる文字までを出力する。 

7 0 5 8 

メッセージ 

無意味なメッセージ！？ 

7 12 9 

1 文字出力 I 

Acc の値を画面に出力する。 

7 15 9 , 

キー入力 | 

キーボードからの 1 文字入力を行なう。 

7 16 2 

キーセンス 

キーボードが押されているか調べる。（押されていれば CY =0) 

716 E 

VRAM アドレス 

カーソル位置から VRAM アドレスを得る。 

717 B 

カーソル ON 

カーソル表示を ON にする。 

7 18 3 

カーソル OFF 

カーソル表示を OFF にする。 

718 B 

カセット WRITE ON 

カセットインターフヱイスへの書き込みを開始する。 

7 19 4 

カセット出力 

カセットインターフェイスへデータを出力する 。 （Acc ) 

719 D 

カセット WRITE OFF 

カセットインターフェイスへの書き込みを終了する。 

71 A 6 

カセット READ ON 

カセットインターフェイスからの読み出しを開始する。 

71 A F 

カセット READ OFF 

カセットインターフェイスからの読み出しを終了する。 

71 B 8 

カセット人力 

カセットインターフェイスからデ ー タを入力する 。 （Acc ) 

71 C 3 

LINE INPUT 

1 行入力を行なう。 

71 CC 

CRTC セット 

CRTC (" PD 3301) の設定を行なう。 

71 D 5 

BUSY チェック 

プリンタからの BUSY 信号をチェックする。 

71 DA 

1 文字出力 n 

プリンタへ 1 文字出力する。 

71 F 4 

データ 

RAM 上 （ F 155 〜 F 1 CD ) に転送されるサブルーチン0 

7 2 7 0 

メイン ROM LDIR 

メイン ROM をセレクトし、ブロック転送 （LDIR ) を行なう。 

7 2 7 6 

メイン ROM LDDR 

メイン ROM をセレクトし、ブロック転送 （ し DDR ) を行なう。 

mnam 

* TM コマンド | 

メモリのテストを行なう c 

7 4 6 F 

HELP コマンド 

コマンドー-覽表を出力する。 


Edit HELP 

スクリーンエディタ時のサブコマンドー覧表を出力する。 


7 9 7 3 


フラグ HELP 


フラグをセットする時に、フラグの説明を出力する。 


387 








































B ) モニタディスクコード部分 （ Aug . l 9,1983 バージヨン) 


アドレス 


機 能 

8 4 0 0 

ジャンプテーブル 

初期化 

モニタコマンドのジャンプテーブル初期化 

8 4 2 7 


フロッピィディスクの内容を表示する0 

8 4 F 0 

ハ R コマンド 

フロッピィディスクからデータをロードする。 

8 4 F 1 

，コマンド 

フロッピィディスクにデータをセーブす る。 

8 5 8 8 

ディスク関係 

サブルーチン ! 

^ D ， aR ， ハ W ， コマンド用のサブルーチンの集まり。 

8 6 2 2 

サーフェス 

ハ D ^ R ^ W ， コマンドで、ディスクのサーフェスを表わす。 

8 6 2 3 

拡張 HELP コマンド 

HELP コマンドの拡張部分 
(ディスク用コマンドの説明を出力する）〇 

8 6 6 A 

メッセージ 

HELP コマンド用のメッセージ 

8 7 6 A 

M コマンド 

M コマンドの完全バージョン 

8 7 9 0 

ディスク情報セット 

ディスク情報をワークエリアにコピーする0 

8 7 9 6 

ドライブボインタ 

のセット 

ドライブポインタをセットする。 


388 



















モニタワークエリア部分 


アドレス 


E 6 6 




フレーク ポイント用 








maaam 



ブレークボイント用ジャンプテ—ブル （ RST 38 で使用） 
イニシャ ライズ拡張用フック 
拡張 M コマンド用フック 




E 6 8 ： 


E 8 2 6 






モニタエント 




ン フテーブル 


コマンド拡張用フック 


拡張 HELP コマンド用フック 


汎用フック 


夕の BASIC からのエン 


N 88 -BASIC 

ROM コール 



N 88 -BASIC ROM をコールす る 
CALL F 155 


DW 


ADRS 



ROM セレクト 


ブロック転送 


N-BASIC ROM のセレクトを行なう 


ブロック転送ルーチン 

LDIR … F 184 
し DDR -. F 187 


8 A 




リアクセス 


エラー ルーチン 



ン ROM , RAM をセレクトし、メモリをアクセスする 




-ニタ ROM をセレク 



、エラー ルーチン 



F 1 C 2 


マン ド用 テーブル 


ブレークポイン 


F 1 C E RADIX フラグ 


F 1 C F BREAK POINT フラグ 


BP 1 内容 


BP 1 アドレス 


BP 2 内容 


BP 2 アドレス 



GQ コマンドでメイン ROM をセレクトしてジヤンプする 


RST 38 H でここへとんでくる。モニタ ROM • 


604 7へ 






D 3 


F 1 D 4 


D 6 


ブレークボイントの設定を示すフラグ 


ブレークポイント1にあった内容 


ブレークボイント1の設定アドレス 


ブレークボイント2にあった内容 


ブレークポイント2の設定アドレス 


( bitO , bitl ) 






マンドアドレス 


S ， E コマンドアドレス 



F 1 D A 


DC 


FIDE 


F 1 D F 


F 1 E 0 



ドレス 


ドレス 



，保存 



マンドフラグ 




前に実行したコマンド 


プリンタへの出力をさせないため 


卜数値入カフラグ 




E 2 


E 8 


F 1 E E 


ROM セレク 


’ル名1 


ル名2 





未使用 


F 1 E F READ/VERIFY フラグ 





未使用 



卜数値人カフラグ 






FIFA 


F D 


オフセツトアドレス 


プリンタス 


ジスタ退避 


レジスタ退避 


OAR 退避 


フック退避 






HL 退避 


SP 退避 


テキストウインドウオフセットアドレスレジスタ退避 


HOOK ，（ EDC 9 〜）退避 


マンド用レジスタ退避 


数値変換 バッファ 
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17 -卜4コマンド•ステートメント•関数処理アドレスー覧表 


STATEMENT 3 〕 


AUTO . 

BEEP . 

BLOAD . 

BSAVE . 

CALL . 

CHAIN . 

CIRCLE . 

CLEAR . 

CLOSE . 

CLS . 

CMD . 

COLOR . 

COLOR® . 

COL 〇 R Cl 〕 . 

COL 〇 R 〔 2 〕 . 

COM ON/OFF/STOP • • • • 

COMMON . 

CONSOLE . 

CONT . 

COPY . 

DATA . 

DATES . 

DEF . 

DEF FN . 

DEF USR . 

DEFDB し . 

DEFINT . 

DEFSNG . 

DEFSTR . 

DELETE . 

DIM . 

DSKOS . 

EDIT . 

ELSE . 

END . 

ERASE . 

ERROR . 

FIELD . 

FILES . 

FOR . 

GET . 

GE 丁 》 . 

GET® . 

GOSUB . 

GOTO . 

HELP ON/OFF/STOP 

IF . 

INPUT . 

INPUT . 

INPUTS . 

INPUT WAIT . 


MAIN R0M4 

0DD5 - 

3EB4 - 

EEBF - 

EEC2 - 

EE89 - 

EE7A - 

6ECE 79D6 

522E - 

4B04 - 

71B5 - 

EEB6 - 

6EC6 6878 

- 6927 

- 6882 

- 68E し 

7D71 - 

EEC 5 - 

7071- 

5140 - 

6EA6 7053 

0C77 - 

721C - 

15D7 - 

15DB - 

15C8 - 

0ACD - 

0AC7 - 

0ACA - 

0AC4 - 

1B40 - 

5AC5 - 

EE98 - 

657B - 

0C79 - 

50E5 - 

519C - 

0DCA - 

4A5C - 

EE9B - 

08BF - 

7198 - 

4B42 - 

71A2 7C33 

0BBF - 

0BF9 - 

72AB - 

0E05 - 

102D - 

1034 - 

1020 - 

1034 - 


DISK 


A7A8 

A73D 

A916 

A98C 




4DC1 




mm 




AC72 




A1C4 


9F2F 
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C C STATEMENT 〕〕 

I RESET . 

I SET . 

KEY . 

KEY . 

KEY し 1ST . 

KEY ON/OFF/STOP 


MAIN R0M4 DISK 

EEAD - 4DC1 

EEAA - 4DC1 

6EFA 742E - 

- 7443 - 

- 73DF - 

- 7437 - 


KILL . EE92 

LET . 0C9C 

し FILES . EE9h 

LINE . 0FAA 

LINE . 6EAE 

LINE INPUT . 0FB9 

LINE INPUTS . 4CC1 

LINE INPUT WAIT •• 0FB9 

LIST . 1809 

し LIST . . 

LOAD . 4854 

LOCATE . 714E 

LPRINT . 0E4C 

t SFT . 49AB 

MERGE . 4855 

MID$ . 585A 

MON . E826 

MOTOR . 7F30 

NAME . EE8F 

NEW . 77DD 

NEW . 4F00 

NEW ON . 77E0 

NEXT . 52BD 

ON . 0D01 

ON ERROR GOTO •••• 0D05 

ON GOSUB/GOTO ••… 仙 73 

ON XX GOSUB . 0D34 

OPEN . 4798 

OPTION BASE .1C89 

OUT . . 

PAINT . 6EDA 

PEN ON/OFF/STOP ••…7208 

POINT . GEB2 

POKE . . 

POLL . EEA / 

PRESET . GE96 

PRINT . 0E54 

PSE 丁 . 6E9A 

PUT . 71A6 

PUTtf . 4B41 

PUT® . 71B0 

RANDOMIZE . 1CD1 

KBYTE . EEA4 

READ . . 

REM . 0079 

RENUM . 6F0 ? 

RESTORE . 50Ao 

RESUME . 

RETURN . 0C41 

ROLL . 6ECA 

RSET . 49AA 

RUN . 0B7C 

SAVE . 




9BAD 


MB — 

9F2A 

7E8B 





mm 



—一一一 

• mmm 

mmm mb 






mm m w 

———— 

— — —* 




99B6 







——— 

—— ~ — 





— 一一 — 

—一一一 


w w 

7674 

»» —•— 

6E25 

mmm mmm 

» —— 

4DC1 

7DFB 

—» —• — — 

•— — 

7E00 


«« 

——— — 

7C33 



4DC1 


W 

75DD 

MBS MV 

— •• 

一一一一 

EEBC 

8803 

— —— 

— — 


— — * 
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SCREEN . 6EDE 698F - 

SET . EE8C - 9DAD 

STATUS . EEB0 - 4DC1 

STOP . 50CA -- 

STOP . 50CD -- 

STOP ON/OFF/STOP • 72B0 -- 

SWAP . 515E - - 

TERM . 7367 -- 

TIMES . 7279 -- 

TIMES ON/OFF/STOP 7279 -- 

TIME$= . 728F -- 

TROFF . 5159 -- 

TRON . 5158 -- 

VIEW . GEBA 6AC6 - 

WAIT . 1800 -- 

WBYTE . EEA1 - 4DC1 

WEND . EE83 A89F 

WHILE . EE80 A875 

WIDTH .181A -- 

WIDTH . 1875 -- 

WIDTHS . 1847 -- 

WIDTH LPRINT . 1866 -- 

WIDTH CDEVD . 1828 -- 

WINDOW . 6EDG 6C55 - 

WRITE . EE86 AC75 

C C FUNCTION n MAIN R0M4 DISK 

ABS . 20A0 -- 

ASC . 5704 - - 

ATN . EEC 8 - 89B3 

ATTRS . . . 9E1D 

CDBL . 223E -- 

CHRS . 5714 -- 

CINT . 21A0 -- 

COS . 2F8B -- 

CSNG . 2214 -- 

CSRLIN . 3F31 -- 

CVD . 4AC0 -- 

CVI . 4ABA -- 

CVS . 4ABD -- 

DATES . 6F02 -- 

DSKF . EE77 - 8EC3 

DSKIS . . . A185 

EOF . 4C51 -- 

ERL .13A2 -- 

ERR . 1394 -- 

EXP . 2E6E -- 

FIX . 2286 -- 

FN . 1600 - - 

FPOS . 4C62 -- 

FRE . 58E4 - - 

HEXS . 54C6 -- 

IEEE . EEB9 - 4DC1 

INKEYS . 5AA3 - - 

INP .17E5 -- 

INPUTS . 4BAC - A104 

INSTR . 57D7 - - 

INT . 2295 -- 

LEFTS . 575A - - 
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56F8 

4C2F 

4C40 

1F10 

1581 

6E9E 

5793 

4AA7 

4AA1 

4AA4 

1512 

54C1 

1B7A 

6EF2 

6EC2 

1586 

578A 

2F1A 

EE7D 

2083 

2F91 

5741 

2E05 

EEB3 


LEN 
LOC 
LOF 
LOG 
LPOS • 
MAP • • 
MID$ • 
MKDS • 
MKIS • 
MKSS • 
NOT 
OCTS • 
PEEK • 
PEN 
POINT 
POS 

RIGHTS 

RND 

SEARCH 
SGN • • 
SIN • • 
SPACES 
SQR 

STATUS 

STRS • 

STRINGS 

TAN • • 

TIME$ 

USR 

VAL 

VARPTR 

VIEW 

WINDOW 


6D29 - 






72ED ~ 
6DC0 — 


- 88E9 


- 4DC1 




752A - 


GCA8 

6CD5 




B 2 c 

c 2 2 


xj F 4 0 2 2 
K 8 B B E D 


470E573EE 

553615166 
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17-2 サブシステムエントリー ー 覧表 


FDC765 に関する略称 


HD 

1 物理的へッド番号 0 または 1 を指定します。 

1 (Head) 


US1,US0 

ドライブュニット番号〇〜 3 を示します。 

(Unit Select) 


r 。 

メディアのシリンダ番号〇〜 76 を示します。 

(cylinder Address) 


H 

論理的へッド番号を示します。 

(Head Address) 

► ■ — - ■ 


R 

セクタ番号をホします。 

(Record (Sector) Address) 

一 ■ 1 ■ 1 ■ ■ ■ ■ ■ ■ —■ ■ 


N 

1 セクタ内のデータ长をボします。 

(Record (Sector) Length) 


EOT 

あるトラック上の敁終セクタ番号を示します。 

(End of Track) 


,GPL 

VFO SYNC を除いた Gap3 の長さ（バイト数）を 

(Gap Length) 

示します。 

: DTL 

処理すベきセクタあた 1 ) のデータ M 

STO, ST1 ， ST2 

リザルトステータス情報をストアするレジスタ 

(Status) 

( 4 08 ページ参照） 

ST3 

ドライブの状態を示す情•報をストアするレジスタ 

(Status) 

—— — ■ i 卩 - 

( 410 ページ参照） 

その他の略称 

Acc : 

- ■ - -一 _ - — ■ 

アキュムレータ 

SP 

スタックポインタ 

PC 

--- 

ブログラムカウンタ 

PSTB 

■ ~ — ■ ■国 ■ 1 

プリンタストローブ 

~--- —— -- - 


〔注意：ドライブ番号は0，1，2，3になっています。〕 
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サブシステム ROM 


000 OH 〜 07FFH 


了ドレス 

項 目 

0000H 

コール ドス ター| 

(JP 007EH) 

0008 H 

ブレーク ポイン| 

0010H 

1 文字入力 

(JP 06D9H) 

0018 H 

1 文字出力 

(JP 070FH) 

0020H 

ジャンブテーブノ 


名 


内 


容 


リセットのとき、ここから始まる 


卜処理 丨 7F22H をコールした後、 004EH へ行く 


(7F22H 番地参照） 

ハンドシェイクによ 1 ) メインシステムから1バイト 

入力する 。 CALL 001 0H もしくは RST10H を実 
行すると、結果を Acc に人れ、戻る。 


ハンドシェイク によリメ インシ7、テムへ1ノくイト 出 

力する。データを Acc に入れ CALL 0018 H もしくは 
RST18H を実行するとよい。 


004DH 


アドレス 


飛 



0024 H JP 06D9H 1 文字入力 

0 02 7 H JP 0 7 0FH 1 文字出力 
002AH JP 00C1H ホット スタート 
002DH JP 02D5H リードデータ 
0030 H JP 02D6H ベリファイテ•ータ 
003 3 H JP 0396H ライトデータ 
0036 H JP 0196H リキャリブ ' レイ I 、 
0039 H JP 01E7H フォーマット （ 1 卜 


0039 H JP 01E7H フォーマット （ 1 トラックのみ） 
003CH JP 02C2H フォーマット（全トラック） 


003FH JP 029AH FDC765 よリ 


卜入力 


0042 H JP 02A7H FDC765 へ 1 バイト出力 

004 5 H JP 0263H FDC765 よリリザルトステータス入力 


0048 H JP 074 1H 高速 


ドシェイクによる 2 パ、 イト人力 


004BH JP 077BH |高速 ハンド シェイクによる 2 バイト出力 


004EH ブレークポイント処理ブレークポイントによリ実行を中断したときのアド 

レフ、レジスタをワークエリアに退避させ、中断した 
アドレスを上位、下位の順でメインシステムへ送る。 

_ (RST 18H を使用） _ 

システムイニシャライズワークエリア、 8255 のイニシャライズ。このイニシ 

ャライズが実行されると必ず片面指定に戻る。 
8801/mkII で、は 、 STOP RESET すると ft:® ： 、两 j 面 
指定を 行うようになっている。 _ _ 

'ットスタート メインシステムからのコマンド待ち。メインシスア 

ム から コマンドが 送られてくると、その コマンドの 


0 0 7EH 


00C1H 
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1 アドレス 

項 目 名 

内 容 

00C1H 


処理番地をコールするようになっている。 （ SP は、 
00C1H で 800 0H に設定される 。) 

また、ディスクドライブのモーターの ON ， OFF も行 
なっている。メインシステムからの指令が 3 分間以 
上なければ、モ ー タ ー を止めるようになっている。 

l _ ■ ■ ■ _ ■ ■ • 

01 1BH 

0158H 

各コマンドの処理番地 

のデータ 



つマン K 

No . 

アドレス 

内 容 

0 

01 5DH 

ディスクのイニシャライズ 

1 

04 5EH 

メインシステムから送られたデータをディスケットへ 
書き込む。 

2 

048CH 

ディスケットからテータを読み込み、リードバッファにおく。 

3 

04DDH 

リ ー ドバッファにある テ、 ー タをメインシステムへ送る。 

4 

0438H 

セクタ単位のコピー 

! 5 

0517 H 

フオマット 

6 

050BH 

コマンドステータスをメインシステムへ送る。 

! 7 

051 1H 

ドライブステータスをメインシステムへ送る。 

8 

0649H 

メモリテスト 

9 

0693H 

メモリの内容をメインシステムへ送る。（アドレス指定） 

10 

0159 H 

I/O アドレス F7H にデ ー タを出力 

:11 

052FH 

メモリの内容をメインシスァムへ送る。（転送数指定） 

12 

053BH 

メインシステムからデータを受けとる。 

13 

056CH 

指定したアドレスへジャンプさせる。 

| 14 

057 1H 

ディスケットからデータを読み、指定したアドレス上におく。 

15 

0 5 7FH 

指定したアドレス上のデータをディスケットへ書き込む。 

16 

05 8EH 

ドライブ 0 のトラック 0 セクタ 1 から 1 セクタ読み、 500 0H に 
おく。そして 500 0H へジャンプする。 

17 

045FH 

メインシステムから送られたデ ー タをディスケットへ 
書き込む。（高速ハンドシヱイク使用） 

18 

04DEH 

リード八ッファにあるデータをメインシステムへ送る。 
( 高速ハンドシェイク使用） 

19 

05A9H 

FDC765 のリザルト•フェイズの結果をメインシステムへ 
送る。（コマンド， STO, ST1, ST2, C,H, R ， N の 8 バイト） 

20 

I 

05B4H 

指定したドライブのデバイスステータス （ ST3 ) をメイ 
ンシステムへ送る。 

21 

0547H 

メモリーの内容をメインシステムへ送る。（高速ハンド 
シェイク使用、転送数指定） 
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了ドレス 


コマンド 

No . 

アドレス 

内 容 

22 

055 3H 

メインシステムからデータを受けとる。（高速ハンドシ 



エイク使用） 

23 

05BCH 

両面 • 片面指定 

24 

0 5CEH 

現在の両面 • 片面指定の状況を送る。 

25 

05D4H 

リードアフターライトフラグセット 

26 

05D5H 

リードアフターライトフラグリセット 

27 

0 5DAH 

前回ブレークポイントで止まったアドレスから実行する。 

28 

0602 H 

ブレークポイントを設定 

29 

0628H 

各レジスタの値を変える。（ブレークポイント用） 

30 

0629H 

ブレークポイントで止まったときの各レジスタの値 : を送る。 


0159H 

コマンド 10 

I/O アドレス F7H にデータを出力する。 （ VF0 回路用 
ウィンドウデータを変える。） 

015DH 

■ 

ディスクドライブの初期化 

FDC765 の初期値設定 (Head Unload Time, Step 
Rate Time, Head Load Time, Non DMA mode) 

接続ドライブ数のチェックとリキャリプレート 
( へッドをシリンダ〇へ戻す。） 

0196H 

リキャリブレート 

C レジスタで指定 （ C= 0 
ヘッドをシリンダ 0 の f] 

たときはキヤリーフラグ : 

例 LD C, 0 ' 

CALL 0196H - 

RET NC 

,1,2,3) したドライフ、'の 

5 ：置へ戻す。エラーが起き 
を 1 にして戻る。 

ドライブ 1 をリキャリブ 
レートしてエラーがない 

なら RETURN する。 

01AAH 

シーク 

C レジスタで指定したドラ 

= 0~79 )で指定した卜 
ラーが起きたときはキヤ 

例 LD C, 0 

LD D, 10 

CALL 01AAH 

RET NC 

• 

• 

• 

イフ、、のへッドを D レジスタ （D 
ラックまで移動させる。エ 
リーフラグを 1 にして戻る。 

ドライブ 1 のトラック 10 

へへッドを動かす。 

j 

01CCH 

シ ー クのエラ ー 千エック 

シークが正常終了しないか、実際に移動したトラッ 




ク番号と要求したトラック番号が一致しなかったと 
き、キャリーフラグを 1 にしてリターンする。 

01E7H 

1 トラツクのみフオー 
マットする。 

C レジスタで指定したドライブの D レジスタで指定し 
たトラックをフォーマットする。エラーが起きたと 
きはキャリーフラグが 1 になる。 
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/ 厂 Z へ 

0263 H 

，只 口 ^ri 

リザルトフェイズ 

1 J UJ 

1 J —ド•フイト•フォ—マットコマンドなどのリサル 

トフェイズ■における STO , ST 1， ST 2, C ， H ， R ， N の入 
力とェラーチェックを行う。エラーが起きたときは 
キャリーフラグを1にしてリターンする。 

( C レジスタ：ドライフ TvJo ) 

0 2 9 AH 

リザルトフェイズ'のと 

きに FDC 765 力、らテー 

夕を入力する。 

結果は Acc に入る。 

02 A 4 H 

コマンドフェイズのと 

きに FDC 765 へコマン 

ドを出力する。 

FDC 765 へコマンドを送るとき、コマンドデータを Acc 

に人れ CALL 02 A 4 H とする。 

02 A 5 H 

コマンドフェイズのと 

きに FDC 765 へデータ 

を出力する。 

FDC 765 へパラメータを送るとき、パラメータを 
Acc に入れ CALL 02 A 5 H とする。 

02 B 4 H 

タイマー 


j 02 C 2 H 

全トラックのフォーマ 

•ント 

C レジスタで指定されたドライブのディスケットをフ 
ォーマットする。ェラーが起きるとキャリーフラグ 

を1にして戻る。 

02 D 5 H 

ベリファイ•データ 

ディスケットからデータを読んだ 1 )、 RAM 上のメモ 
リと比較したリする。 

B レジスタ：リード•ベリファイするセクタ数 （1 〜 16) 

C レジスタ：ドライフ 、' No (0 〜 3) 

D レジスタ：トラック No (1 〜 79) 

02 D 6 H 

リード • データ 

0 2 FEH 

031 FH 

リ ー ドモード 
ベリファイモード 






E レジスタ：セクタ No (1 〜 16) 

HL :リード•ベリファイする RAM の先頭アドレス 
エラーのときはキャリーフラグを1にして戻る。 

1 035 BH 

VF 0 用ウィンドウデ ー 

夕の初期化 

C レジスタで指定されたドライブの VF 0 用ウィンドウ 
データを初期化する。 

0375 H 

VF 0 用ウィンドウデー 
夕の変更 

ディスクのリード•ライトでエラーが起きるとき、ウィ 
ンドウデータを変えてリトライさせる。 

0396 H 

ライト•データ 

ディスヶットへデータを書き込む。 

B レジスタ：書き込むセクタ数 （1 〜 16) 

C レジスタ：ドライフ 、' No (0 〜 3) 

D レジスタ：トラック No (1 〜 79) 

E レジスタ：セクタ No (1 〜 16) 

HL レジスタ：ライトする RAM の先頭アドレス 
エラーのときはキャリーフラグを1にして戻る。 

03 E 9 H 

FDC 765 よりテ'’ノくイスス 

テータス （ ST 3) を入 

C レジスタにドライブナンバーを入れ CALL 03 E 9 H 
を行なうと、 Acc にそのドライブのデバイスステータ 
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アドレス 


03 E 9 H 


03 F 1 H 


040 EH 


項 


0 


名 


力する 


FDC 765 へパラメータを 
送る。 


HD ， US 1， US 0 の計算 


内 


容 


スが入る。 


デイスケッ トのリード•ライトで使う パラメータを FDC 



送る。 （ 


EOT ， GPL，DTL の川 H ) 


hdIusiIusoL C , H , R , N , 


C レジスタ：ドライ フ、、 No (0 〜 3) 

D レジスタ：トラック No (0 〜 79) よリ 
FDC 765 で使う形のへッド•ユニット番号を計算する 


6 


4 


0 



サーフエフ、 （ヘッド） ドライフ No 

( 0•••炎1 (0…ドライブ1、 


■ " 11 ■ ■■ ■ _ 


\ レ U 

續 

1… ドライブ 2 

2…ドライブ3 I 

3…ドライブ4 メ 

• 

041 BH 

シリンダナンバーの計 

しし 

C レジスタ：ドライフ、 No (0 〜 3) 



算 

D レジスタ：トラック No (0 〜 79) よリ 

シリンダナンバーを計算して Acc に入れる。 

0423 H 

両面.片面モードチェ 

ック 

C レジスタ：ドライフ 、、 No (0 〜 3) よリ 

そのドライブが片面モードなら Acc = 0、咖面モー 
ドなら Acc =1を返す。 

042 FH 

へッドナンバーの計算 

C レジスタ：ドライフ 'No (0 〜 3) 


D レジスタ：トラック No (0 〜 79) より 

そのトラックが表而にあるか裏面にあるかを計算す 


0438 H 


045 EH 


045 FH 


048 CH 


04 DEH 


コマンド 4 

( COPY ) — 

コマンド1 

(Write data ) 


コマンド 17 
(Write data ) 


コマンド2 

(Read data ) 



コマンド 18 

(Send data ) 



表面 

—备屬 ■ ■■ ^ 

幾而_ 

セクタ単位のコピーを行う。ただし2トラックにま 

たがったコピーはできない。（動作不定）_ 

メインシステムから送られたデータをディスケット 

へ書き込む。（ライト•バッファを使用） _ 

045 EH : コマンド 1 の高速パ’ージョン。 

メイ ン システムとの ハン ドシェイクで高速 ハンド シ 
ェイクを使っている。 

ディ スケッ トからデータを読み込み リー ド バッファ 

(5000 H 〜 5 FFFH ) におく。 _ 

リー ド バッファ にある データを メイ ンシステムへ 送 
る。転送 M は、 コマンド 2のとき に 指定した セクタ 

数 X 256 パ'イト_ 

04 DDH :コマンド3の高速バージョン。 

高速ハンドシヱイクを用いている。 



399 



















アドレス 


050 BH 


051 1 H 


0517 H 


052 FH 


05 3 BH 


054 7 H 


項 


S 


名 


コマンド6 

(Send command 
status ) 


コマンド 7 

(Send drive status ) 


コマンド 5 

( Format ) 


コマ 


ド 11 


(Send data ) 


内 



コマンドス テータスをメイ ンシ ステ ムへ 送る 


7 


FULL 



' リードバッファに読み込んだ 
データが あるときには1，な 
いときは〇 一 

ex . コマンド 2を実行すると 


コマンド 3を実行すると0になるノ 


処理中に I/O 
エラーが 起き 
たら1，そう 
でなければ0 
になり、 


ドライブステータスをメインシステムへ送る 


7 


6 


4 


ドライブ 

ドライブ 



1 

1 1 

1 

1 

#3 

#2 

111 


丄 


丄 


ドライブが接続されているときは1， 
そうでないときは0 


コマ 


ド12 


(Receive data ) 


指定されたドライブの物理的フォーマットを行う 


メモリ の 内容をメイ ンシステムへ 送る 
先頭アドレスと転送バイト数を指定。 


メインシス、テムからデータを受けとり、指定された 
アドレスへ置く。 

先頭アドレスと転送バイト数を指定。 


コマンド21 

(Send data ) 


052 FH :コマンド11の高速版 

高速 ハン ドシェイクを使うのでデータは2バイトず 
つ送られる。転送バイト数は必ず2の倍数（偶数） 
にしなければならない。 


05 53 H 


コマ 


ド22 


053 BH :コマンド12の高速版 




高速ハンドシェイクを使うのでデータを2バイトず 
つ受けとる。転送バイト数は必ず2の倍数（偶数） 
にしなければならない。 

0 5 5 FH 

コマンド21，22のサブ 

ルーチン 

高速ハンドシェイク用に、先頭アドレスを HL に入れ^ 
転送バイト数を％化して DE に入れる。 

056 CH 

コマンド13 

( Execute ) 

指定したアドレスへジャンプさせる。 

このコマンドを実行するとリターンアドレス (00 C 1 H 
二 Hot Start ) をクリアしてジャンプするので 、 RET 
命令ではなく JP 002 AH (JP 00 C 1 H ) を使うこと。 

05 71 H 

コマンド14 

ディスケットからデータを読み、リードバッファで 



(Load data ノ 

はなく指定したアドレスへ置く。 

0 5 7 FH 

コマンド 15 

ライト バッファ ではなく指定したアドレスのデータ 


(Save data ; 

をディスヶットへ書き込む。 

0 5 8 EH 

コマンド 16 

ドライブ〇のトラック0、セクタ1から1セクタを 5000 H 


(Load and go ) 

に読み込み、500 0 H へジャンプ する。 PC -80 S 31, 
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アド 


058 EH 



05 A 9 H 

コマンド 19 

(Send result status ノ 

05 B 4 H 

コマンド 20 

(Send device status ) 

0 5 BCH 

コマンド 23 

(Set up drive 
operation mode 
[ Single / Double ]) 

0 5 CEH 

コマンド 24 

(Send drive 
operation mode 
[ Single / Double ]) 

05 D 4 H 

コマンド 25 

(Set read after 
write flag ) 

05 D 5 H 

コマンド 26 

(Reset read after 
write flag ) 

0 5 DAH 

コマンド 27 

( Continue ) 

0602 H 

コマンド 28 

(Set break point ) 

0617 H 

フ'、レーク ポイント •クリア 

0628 H 

コマンド 29 

(Set new value 
to register ) 

]_ i 


容 


8031/2 W を単体でオートスタートさせるためのコマ 
ンドだが、 ハー ドによる改造がないと オート スター 
卜させることはできない。 


FDC 765 のリザルトフェイズの結果、コマンドステー 
タスが、ステータス1 ( ST 1)， ステータス 2( ST 2)， 



リ ン ダー No ( C )， 


ド No ( H )， セクタ No ( R )， 


セクタ長 （ N ) の8八イトをメインシステムへ送る。 
ステータスバイトをみれば、どのような エラーが 起 


きたかわかる 


ex 


. CRC エラー） 


指定したドライブのデバイスステータス （ ST 3) をメ 
イ ン システムへ送る。主にライト•プロテクト の チェ 
ックに使われている。 _ 


各ドライブの両面 •） V 而指定を行なう。 

メインシステムから送られるデータは次のとおり。 




ドライブト，ライブドライブドライブ 

# 3- # 2 #1 # 0 


•0. 片面指定' 

1 . 也面指定. 


現在の両面.片面指定の状況をメインシステムへ送 
る。データは コマン ド23 (05 BCH ) のときと同じ。 


ディスヶットへデータを書き込むコマンドで（コマ 

ンド1，4,15, 17) 書き込み後、確認を行なうように 

する。 （ リード•アフター•ライト） 


リード•アフタ—ライトモードを解除する。 


前回、ブレークポイントで止まったアドレスまたは、 
コマンド29で指定した PC のアドレスから実行させ 
る0 


ブレークポイントを設定する a 


ブレークポイントが設定してあれば元のデータに戻 
し、ブレークポイントのフラグをクリアする。_ 

各レジスタの値を変える。（ブレークポイント用） 

レジスタは番号で指定する。 


AF 

BC 


HL ， 

IX 
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了ドレス 

062 8 H 


DE - 

- 2 

IY 

一 9 

HL — 

- 3 

I 

一 10 

AF ， - 

- 4 

PC 

-11 

BC ， - 

- 5 

SP 

一 12 

DE ， - 

- 6 




0629 H 

コマンド30 

(Dump register 
value ) 

ブレークポイントで止まったときの各レジスタの値 
をメインシステムへ送る。 

レジスタ番号は、コマンド29と同じ。 

0649 H 

コマンド8 

(Memory test ノ 

400 0 H 〜 7 EFFH まで1バイトについて256回書き込 
みチェックを行なう。 

0693 H 

コマンド 9 

(Send data ) 

メモリーの内容をメインシステムへ送る。 

先頭アドレスと終了アドレス+1を指定。 

06 A 6 H 

メインシステムよリ 

4バイト人力 

B , C ， D , E レジスタの順に入力 

06 A 8 H 

メインシステムよリ 

3バィト入力 

C , D , E レジスタの順に入力 

0 6 AFH 

メインシステムより 

2バィト入力 

H , L の順に入力 

06 B 4 H 

トラックバッファモー 

ドチェック 

トラックバッファモードなら （7 F 17 H が0でない） 
ドライブ、トラック No が、前回アクセスしたものと 
同じかどうかチェックして、同じなら 7 F 18 H に255 
を人れ、戻る。 

06 C 9 H 

プリコンペイセイション 

のセット•リセット 

ドライ rNo ( C レジスタ： 〇〜 3) とトラック No (D 
レジスタ：〇〜 79) よりシリンダ No を計算し、そ 
の結果シリンダ No が〇〜19なら7、20〜39なら15 

をモーターコントロールポート F 8 H へ出力する。つ 
まり〇〜19ならプリコンペイセイションをセットして 
20〜39ならリセットする。 

06 D 9 H 

ハンドシェイクにより 

1文字入力 

結果は Acc に入る。 

0 7 0 FH 

ハンドシェイクにより 

1文字出力 

Acc の内容を出力する。 

074 1 H 

高速ハンドシヱイクに 

より2文字入力 

( HL ), (HL + 1) に入力。入力後 HL は HL + 2 されて 

いる。 

077 BH 

高速ハンドシヱイクに 

よ 1 ) 2文字出力 

( HL ), (HL + 1) の内容を出力。出力後 HL は HL + 2 

されている。 

07 B 1 H 

ハンドシェイクによリ 

2文字出力 

( HL ), (HL + 1) の内容を出力。出力後 HL は HL + 2 

されている。 


( 1バイトのハンドシェイクを2回使用) 
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アドレス 

項 目 名 

内 容 

0 7 BCH 

ハンドシェイクによリ 

2文字入力 

( HL ), (HL + 1) に入力。入力後 HL は HL + 2 されて 

いる0 

( 1バイトのハンドシェイクを2回使用） 

07 C 6 H 

PC -80 S 31, PC -8801 mkII 

用のパッチル ー チン I 

FORMAT , WRITE コマンドでのパッチルーチン。 
動作終了後、待ち時間をおくようにしている。 

07 D 6 H 

PC -80 S 31, PC - 8801 mk II 

用のパッチルーチン II 

シーク•コマンドでのパッチ ルー チン。シーク終了後 

ステ ー タス3 ( ST 3) の Two side ビット （ 第2ビット） 
が1になるまで待つようにしている。 

0 7 EFH 

ァパイス.パージョン 

ナンバ ー 

FFH = PC -8031 

EFH = PC -8031/2 W , PC -80 S 31, PC - 8801 mkll 

上位4ビットがデバイスナンバー、下位4ビットが 
ソフトのバージョンを示す。 

07 F 0 H 

0 7 FFH 

VFO 用ウィンドウ•デー 

タテ ー ブル 
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サブシステムワーク•エリア 


7F00H 〜 7FFFH 


アドレス 


7 F 00 H 


7 F 02 H 


7 F 04 H 


7 F 06 H 


7 F 08 H 


イト数 





! DRIVE #0 用のウ^ 

f ンドウデータ•テーブルのボインタ。 

DRIVE # 1用のゥづ 

f ンドウデータ•テーブルのポインタ。 

DRIVE #2用のウノ 

f ンドウデータ•テーブルのボインタ。 



7 F 09 H 


7 F 0 AH 



7 F 0 BH 


7 F 0 CH 



DRIVE # 3用の ウィン ドウデータ•テーブルのボインタ。 


コマンド 2 (Read data ) でリードしたセクタ数。 
コマンド 3 (S end data ) で使われる。 


モーター ON/OFF フラグ （00 H : OFF , FFH : ON ) 


リトライ•カウンターエラーが起きたとき FORMAT なら5回、 
READ . WRITE なら9回のリトライが行なわれる。 


現在の VFO 用ウィンドウの値。 


FDC 765 へ出力したコマンドの値。 


PC - 8031 /2 W のなごり。 I / O アドレス F 7 H は、プリンタポートとしても使われる 
ため、プリンタへデータを出力した後、ウインドウの値を戻しておかなければな 
らなかった。 


7 F 0 DH 


リザルト•フェイズで受けとったステータスの値 


7 F 0 DH 

ステータス 0 ( ST 0) 


7 F 0 EH 

ステータス 1 ( ST 1) 


7 F 0 FH 

ステータス 2 ( ST 2) 


7 F 10 H 

シリンダ•ナンバ ー 

( C ) 

7 F 11 H 

ヘッド•ナンバ ー 

( H ) 

7 F 12 H 

セクタ•ナンバー 

( R ) 

7 F 13 H 

セクタ長 （ N ) 



7 F 14 H 



マンド•ステータス 


DONE FULL 


■■■■■ 


I/O 

ERR 


I/O ERR 


FULL 


DONE 


処理中に I / O エラーが起きたら1， 

そうでなければ0 
データ•アベイラブル•フラグ 
リ—ド •バッファに 読み込んだデータが 
あるときは1，ないときは0 
' ex . コマンド2を実行すると1になり 
コマンド3を実行すると0になる 

ラスト I / O コンプリート•フラグ 

DISK がインテリジヱント方式なので常に 
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7 F 15 H 


ドライブ. ステー タス 





1 

7 6 5 4 

3 

2 

1 

0 



ドライブが接続してあれば1，ドライブ•マウント•フラグだが 
そうでなければ〇 常に1になっている。 


7 F 16 H 


NON - ATN フラグ 


NON - ATN フラク、 


00 H ••ハンドシェイクの ATN 信号を 

無視する。 

FFH :ハンドシェイクの ATN 信号を 

無視しない。 


7 F 17 H 


トラ ッ ク •バッファ•モー ドフラグ 


フラグニ 


00 H :トラック•バッファ•モードでない 

その他：トフック•バッファ•モード 


7 F 18 H 


7 F 19 H 


7 F 1 AH 


7 F 1 BH 


前回リードしたドライブの番号 (0-254) 

もし FFH なら前回と同じドライブの同じトラックをリードしてい 
ることを示すフラグとなる。 


前回リードしたトラックの番号 


前回リードしたセクタの番号。トラック•バッファ•モードでコマ 

ンド3を使ったときに使われる。 


ドライブ•オペレーション•モード（肉片面指定） 



ドライブ 

#3 



片面指定 
_面指定 


7 F 1 CH 


各ドライブの闽面/片面モード•フラグ 0のとき片面モード、そ 
れ以外 （ FFH ) のとき肉•面モード。 


7 F 1 CH 

ドライフ、、# 0 

7 F 1 DH 

ドライブ#1 

7 F 1 EH 

ドライブ# 2 

| 7 F 1 FH 

ドライブ# 3 

_ ■■一 ■ ■ 1 ■ ■ ■ ■ i 


7 F 20 H 



ド•アフター•ラ 




それ以外 


,卜•フラグ 

リード•アフター•ライトを行なわない 
11 —ド•アフタ—ライトを行なう。 


7 F 21 H 


リード、ベリファイ（リード•アフタ 


一— • 


ライト用）の切り換えフラ 



それ以外 


ベリファイ 

リード 
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アドレス 


< 


卜数 


7 F 22 H 


3 


7 F 25 H 


3 


7 F 28 H 


26 


7 F 42 H 


1 


7 F 43 H 

7 F 45 H 

7 F 46 H 


内 


容 


7 FFFH | 


RST 8 が実行されると（ブレーク•ポイント処理）ここを CALL 
するようになっている。 

普通は 7 F 22 H : RET になっているが、ユーザーが JP 命令に変え 
ることで、ブレーク•ポイントの処理を自分でできるようになる。 


コマンド27 ( Continue ) での実行先。 
(7 F 25 H : JP X X X X ) 


ブレーク •ポイント用 レジスターの 退避エリア（各2バイトづつ） 


7 F 28 H-SP 

7 F 36 H —BC : 

7 F 2 AH-PC 

7 F 38 H - AF ' 

7 F 2 CH-I 

7 F 3 AH-HL 

7 F 2 EH-IY 

7 F 3 CH-DE 

7 F 30 H-IX 

7 F 3 EH-BC 

7 F 32 H — HL ' 

7 F 40 H-AF 

7 F 34 H — DE ' 

暴 


I ブレーク •ポイント設定フラグ 


0 


それ以外 ( FFH ) 


設定されていない 
設定されている。 


ブレーク•ポイントを設定したアドレス 


ブレーク•ポイントを設定したアドレ スの 内容 


スタック•エリア 
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FDC 765 ステータスレジスタ、 リザルト ステータスの 内容 

(" PD 765 .7625 ユーザー ズ マニ ュアル （ NEC ) より 転記） 


ステータス レジスタ 


ビット番号 

名 称| 

略称 

内 容 

i DO 

FDO Busy 

DOB 

デバイス# 0が SEEK コマンドによるシーク動作 
を実行中であるか、シーク動作終了の割り込み要 
求を保留中であることを示します。 

r .. D M 

FD 1 Busy 

DIB 

デバイス#1について D 0 ビットの内容と同様。 

D 2 

FD 2 Busy 

D 2 B 

デバイス : tt 2について DO ビットの内容と同様。 

D 3 

FD 3 Busy 1 

D 3 B 

デバイス# 3について DO ビットの内容と同様。 

； D 4 

FDC Busy 

CB 

FDC が Command Phase , Result Phase , またはリ 
ー ド/ライトコマンドの Execution Phase を実行 
中であることを示します。このビットがセットさ 
れているときは、他のコマンドは受付けられませ 

ん。 

D 5 

Non-DMA MODE 

NDM 

FDC が Non - DMA モードでデータ転送中であ 1 )、 
メインシステムに対してサービスを要求している 
ことを示します。 

D 6 

Data 

Input Output 

DIO 

デ ー タレジスタを介して転送するデータの方向を 
示します。0のときはメインシステムから FDC 
の方向、1のときは FDC からメインシステムの方 
向を示します。なお、データレジスタの状態は RQM 
( D 7 ビット ） が示します。 

I ■ ■ 1 

D 7 

Request 

for Master 

RQM 

FDC からメインシステムへ転送すべきデータがデ 
—タレジスタに口ードされていること、またはデ 
—タレジスタが空で、メインシステムから FDC へ 
転送するデータをデータレジスタに書き込んでも 
よいことを示します。データの方向を示す DIO 
( D 6 ビット ） の状態により、次の働きをします。 

DI 0 二0のとき： 

メインシステムから FDC へデータを転送する場 
合で、メインシステムか FDC のデータレジスタにテ’ 
一夕をセットしたとき （WR 二 0) に RQM は0と 
なり、 FDC がそのデータを引き取ったとき1とな 
リます。 

; DIO =1のとき： 

FDC からメインシステムへデータ転送する場合 
で、 FDC がデータレジスタにデータをセットした 
とき1となり、メインシステムがそのデータをづ1 
き取ったとき （RD = 0) 0となります。 
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リザルト ステー タス0 ( STO ) 


ビット番号 フ、テータス名称 略称 


D 7 


Interrupt し ode 


D 6 


\— 


D 5 


Seek 

End 


SE 


D 4 


Equipment Check 


EC 


D 3 


Not Ready 


NR 


D 2 


Head Address 


HD 


D 1 


Unit Selectl 


Unit Select 2 


US 1 


USO 


内 


容 


IC : INT 要求が何によるかを示します。 

D 7 D 6 

0 0コマンドの正常終了 （ NT ) 

01コマンドの異常終了 （ AT ) 

10 起動されたコマンドが Invalid であったため、 

コマンドを実行しなかった事を示します。 (1 C ) 
ベイスの状態遷移があった事を示します。 
( AI ) 


SEEK または RECALIBRATE コマン ドによるシ 

ーク動作が正常終了または異常終了したときにセ 
ットされます。 


デバイスから Fault 信号を受け取ったとき、また 

は RECALIBRATE コマンド時 TRACK 0信号が 

一定時間内に検出できなかったときセットされま 
す 0 


指定したデバイスが READY 状態でないときセ 
卜されます。 


INT 要求時の 


ドの状態を示します 


SENSE INTERRUPT STATUS コマンド実行時 

は常に0となっています。 


INT 要求時のデバイス番号を示します 


NT • Normal i ’ erminate , A^i • Abnormal rerminate 

IC : Invalid Command , A I : Attention Interrupt 
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リザルトステータス1 ( ST 1) 


ビット番号 

ステータス名称 

略称 

内 容 1 

D 7 

L ■ ■ 1 ■ ■ — ■ .1 ^ ■ 1 

End of Cylinder 

EN 

指定された敁終セクタを越えてアクセスを継続さ 
せようとしたときセットされます。 

D 5 

Data Error 

DE 

ディスク上の ID またはデータを説み収った際、 
CRC エラーを検出するとセットされます。 ID 、 デ 
—夕の区別は ST 2 の DD ビットによります。 

D 4 

Over Run j 

OR 

あるセクタのデータを処理しているとき、メイン 

システムのサービスが规定時間内に行われなかっ 
たときにセットされます。 

D 2 

■ ■ ■ ■ ■ _ ■ ■ ■ 

No Data 

ND 

1. 次の4 M のコマンド実行時に IDR で指定したセ 
クタがトラック上で検出されなかったときセッ 
卜されます。 

(READ DATA , WRITE DATA , WRITE 
DELETED DATA , SCAN ) 

2. READ ID コマンド実行時トラック上にエラーの 
ない ID が検出されなかったときセットされます。 

3. READ DIAGNOSTIC コマンド実行時セクタ ID 

と IDR の内容が一致しなかったときセットされ 
ま 1 。 - 

D 1 

Not Writable 

NW 

WRITE DATA , WRITE DELETED DATA , 
WRITE ID コマンドを実行時に、書き込み不可状 
態を検出するとセットされます。 

DO 

Missing Address 

Mark 

! MA 

1. ディスクの ID をアクセスするコマンドで IM 
(Index Mark ) を2回検出するまでに AM (Address 
Mark ) が検出されなかったときセットされます。 

2. ディスクのデータを読み取るとき DAM または 
； DDAM が検出されなかったときセットされます。 

このとき ST 2 の MD ビットもセットされます。 


備々 D 6 と D 3は使用されず常に0です。 
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リザルトステータス2 ( ST 2) 


ビット番号 

ス丁ータス名称 

略称 


D 6 

Control Mark 

CM 

READ DATA または SCAN コマンド実行時に 

DDAM の付いたセクタのデータを処理したときセ 

ットされます。 


Data Jtirror in 

Data Field 

DD 

ディスクのデータを読み取るとき CRC エラーを検 
出するとセットされます。 

D 4 

No Cylinder 

NC 

ST 1 の ND ビットに付帯したステータスで、 ID の C 
バイトが一致しなかったときセットされます。 

D 3 


SH 

SCAN コマンドで Equal 条件が満足されたときセ 
ットされます。 

D 2 

Scan Not 

Satisfied 

SN 

SCAN コマンドで最終セクタまでスキャンしても 
条件に合うデータが検出されなかったときセット 
されます。 

D 1 

Bad Cylinder 

BC 

ST 1 の ND ビットに付帯したステータスで、 ID の C 
バイトが一致せず FFH であったときセットされま 
す。 

D 0 

Missing 

Address Mark 

in Data Field 

MD 

ディスクのデータを読み取るとき DAM , または 
DDAM が検出されなかったときセットされます。 


備考 D 7 は使用されず常に〇です。 


リザルトステータス3 ( ST 3) 


ビット番号 

ステータス名称 

略称 

内 容 

D 7 

Fault 

FT 

デバイスからの Fault 信号の状態 

D 6 

Write Protected 

WP 

デバ'イスからの Write Protected 信号の状態 

D 5 

Ready 

RY 

デバイスからの Ready 信号の状態 

D 4 

Track 0 

TO 

デバイスからの Track 0信号の状態 

D 3 

Two Side 

TS 

デバイスからの Two Side 信号の状態 

D 2 

Head Address 

HD 

デバイスへの Side Select 信号の状態 

D 1 

Unit Select 1 

US 1 

デパイスへの Unit Select 1信号の状態 

D 0 

Unit Select 0 

USO 

デバイスへの Unit Select 0信号の状態 
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付録 


付-1機械語ルーチンソース 1 」スト 
付-2 CP / M のファイル構造 
付-3コント □ —ルコード ー 覧表 
⑴巳 ASIC 入力時 
(2) 通信用 ( ASCII ) 

付-4 E 巳 CDIC コード表 
付-5演算順位表 

付 - 6 USING 文フォーフット ー 覧表 
付-7エラーメッセージー覧表 
付-8漢字キャラクタ対癒表 

付-9プ U ンタ機能一覧表 

付-10機械語オペレーションー覧表 
付-1116進コード—ニーモニック早見表 
付-12ニーモニック—16進コード早見表 
索引 
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付- 1 機械語 ルーチンソースリスト 

付 1-1 拡張 PEEK, POKE 


PC—TechKnow 8800mkI I 
« EXPANDED PEEK POKE » 


PEEK ( <ADDRESS> C,<BANKNAME») 

POKE <ADDRESS>,<DATA> C,<BANKNAME» 

MODE 

<BANKNANE> : NONE 5 

" n 5 





ORG 

0E400H 

0B06 


ERRIFC:EQU 

0B06H 

11D3 


EVA し： 

EQU 

11D3H 

18A3 


GTBYTE:EQU 

18A3H 

1B93 


GTADRS:EQU 

1B93H 

56C9 


CSFRFA:EQU 

56C9H 

8450 


SWAREA:EQU 

8450H 

E6C2 


PORT31:EQU 

0E6C2H 

EABD 


FACTYP:EQU 

0EABDH 

EC41 


FAC: 

EQU 

0EC41H 




— 一一 TMTTT 八 T T7I7 _ — 



f 

參 

1 N I 1 i A し丄 - 

E400 


INIT: 



E400 

3A74E5 


LD 

A, (WED27) 

E403 

B7 


OR 

A 

E404 

2034 


JR 

NZ,INIT9 

E406 

F3 


DI 


E407 

2127ED 


LD 

HL,0ED27H 

E40A 

1174E5 


LD 

DE,WED27 

E40D 

010300 


し D 

BC, 3 

E4 10 

EDB0 


LDIR 


E412 

219FED 


LD 

HI,0ED9FH 

E415 

1177E5 


LD 

DE,WED9F 

E4 18 

010300 


し D 

BC, 3 

E41B 

EDB0 


し DIR 


E41D 

3EC3 


LD 

A, 0C3H 

E41F 

3227ED 


LD 

(0ED27H),A 

E422 

329FED 


ID 

C0ED9FH) f A 

E425 

3A27ED 


LD 

A, (0ED27H) 

E428 

213CE4 


LD 

H し PEEKQ 

E42B 

2228ED 


LD 

(0ED28H) , H し 

E42E 

21EBE4 


LD 

HL t POKE 

E431 

22A0ED 


し D 

C0EDA0H) v HL 

E434 

3E6C 


し D 

A, 6CH 

E436 

3227E8 


LD 

(0E827H),A 

E439 

FB 


El 


E43A 


INIT9: 



E43A 

FF 


RST 

38H 

E43B 

C9 


RE 丁 



PEEK 


E43C 

♦ 

PEEKQ: 

E43C 3C 

INC A 


E43D 2804 JR Z.PEEKQ2 


; OR 0DA00H 

；ILLEGAL FUNCTION CALL 
；EVALUATE EXPR. 

;GET PARAMETER (0-255) to Acc 
；GET ADRS to DE ( 一 23768 to 65535) 
；CHECK STRING & FREFAC 


；IMAGE OF PORT31H 
；TYPE of FAcc 
；FAC ADRS 


；from ED27 
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DEC A 
JP WED27 

PEEKQ2 : INC HL 

LD A, (HL) 
CP 97H 
JR Z,PEEK 
DEC HL 
LD A,255 
RET 

PEEK: 


POP 

AF 

CALL 

WED9F 

LD 

A, 5 

PUSH 

AF 

RST 

10H 

RST 

8H 

DB 


CALL 

GTADRS 

PUSH 

DE 

DEC 

H し 

RST 

10H 

CP 


JR 

Z,PEEK 10 

RST 

8H 

DB 

9 • 

t 

—— BANKNAME 一 

CALL 

GETBN 

POP 

DE 

POP 

BC 

PUSH 

AF 


PUSH DE 


CDBCE4 

D1 

Cl 

F5 

D5 


E43F 3D 
E440 C374E5 
E443 23 
E444 7E 
E445 FE97 
E447 2804 
E449 2B 
E44A 3EFF 
E44C C9 

E44D 
E44D FI 
E44E CD77E5 
E451 3E05 
E453 F5 
E454 D7 
E455 CF 
E456 28 
E457 CD931B 
E45A D5 
E45B 2B 
E45C D7 
E45D FE29 
E45F 2809 
E461 CF 
E462 2C 


E46A 


PEEK10: 


E46A 

CF 

RST 

8H 

E46B 

29 

DB 

つ ， 

E46C 

D1 

POP 

DE 

F.46D 

ED5371E5 

LD 

(ADRS),DE 

E471 

FI 

POP 

AF 

E472 

3273E5 

LD 

(MODE),A 

E475 

E5 

PUSH 

H し 

E47& 

3E02 

LD 

A, 2 

E478 

32BDEA 

LD 

(FACTYP>,A 

E47B 

2A71E5 

LD 

HI, (ADRS) 

E47E 

CD28E5 

CALL 

IFSWAP 

E481 

CD99E4 

CALL 

SETMDE 

E484 

4E 

LD 

C, (H し） 

E485 

D35F 

OUT 

(5FH),A 

E487 

3EFF 

LD 

A, 255 

E489 

D371 

OUT 

(71H)•A 

E48B 

3AC2EG 

LD 

A, CPORT31) 

E48E 

D331 

OUT 

(31H),A 

E490 

FB 

El 


E491 

69 

LD 

L, C 

H, 0 

E492 

2600 

LD 

E494 

2241EC 

LD 

(FAC) t HL 

E497 

El 

POP 

HI 

E498 

C9 

RET 

• 

t 

\AC\T\17 —一 _ 一 



• 

MUU 匕 

E499 


SETMDE: 


E499 

F3 

DI 


E49A 

3A73E5 

LD 

A, (MODE) 

E49D 

DG03 

SUB 

3 

E49F 

3005 

JR 

NC,SMDE1 

E4A1 


LD 

A,0FEH 

E4A3 

D371 

OUT 

(71H) ， A 

E4A5 

C9 

RET 


E4A6 

2008 

SMDE1 : JR 

NZ f SMDE2 

E4A8 

3AC2E6 

LD 

A, (PORT31) 


；SAVE MODE 

••SAVE ADRS 

;GETEND 

；ADRS 

;POP OLD MODE 
;SAVE NEW MODE 
;ADRS 

ADRS 

MODE 

TEXT POINTER 
;INTEGER 


;MODE >= 3 ? 

;YES. NOT GVRAM 

: SELECT 4th ROM«l 


3 6 7 8 9 
G 6 6 G 6 

4 4 4 4 4 
E E E E E 
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E4AB 

F602 


OR 

2 

E4AD 

D331 


OUT 

(31H) ， A 

E4AF 

C9 


RET 


E4B0 

3D 

SMDE2: 

DEC 

A 

E4B1 

C0 


RET 

NZ 

E4B2 

3AC2E6 


LD 

A, CPORT31) 

E4B5 

F604 


OR 

4 

E4B7 

E6FD 


AND 

0FDH 

E4B9 

D331 


OUT 

(31H) ， A 

E4BB 

C9 

SMDE3: 

RET 





； - GuT 

# 

BANKMANE - 

E4BC 


GETBN: 


E4BC 

CDD311 

CALL 

EVAL 

E4BF 

E5 

PUSH 

H し 

E4C0 

CDC956 

CALL 

CSFRFA 

E4C3 

7E 

し D 

A f (HL) 

E4C4 

B7 

OR 

A 

E4C5 

CA060B 

JP 

Z, ERRIFC 

E4C8 

23 

INC 

HL 

E4C9 

5E 

LD 

E f (HL) 

E4CA 

23 

INC 

HL 

E4CB 

56 

LD 

D, (HL) 

E4CC 

1A 

LD 

A, (DE) 

E4CD 

0E05 

LD 

C f 5 

E4CF 

FE20 

CP 

• t 

E4D1 

2815 

JR 

Z.GETBNl 

E4D3 

0D 

DEC 

C 

E4D4 

FE4E 

CP 


E4D6 

2810 

JR 

Z,GETBN1 

E4D8 

0D 

DEC 

C 

E4D9 

FE54 

CP 

f T f 

E4DB 

280B 

JR 

Z # GETBN1 

E4DD 

DG30 

SUB 

• 0 f 

E4DF 

DA060B 

JP 

C, ERRIFC 

E4E2 

FE03 

CP 

3 

E4E4 

D2060B 

JP 

NC f ERRIFC 

E4E7 

4F 

LD 

C, A 

E4E8 

79 

GETBN1:LD 

A,C 

E4E9 

El 

POP 

H し 

E4EA 

C9 

RET 



； - POKE - 

； from ED9F f ADDRESS IS PUSHED 
# 

E4EB POKE: 


E4EB 

FI 

POP 

AF 

E4EC 

CD77E5 

CALL 

WED9F 

E4EF 

CF 

RST 

8H 

E4F0 

2C 

DB 

9 9 

• 

E4F1 

3E05 

し D 

A, 5 

E4F3 

F5 

PUSH 

AF 

E4F4 

CDA318 

CALL 

GTBYTE 

E4F7 

F5 

PUSH 

AF 

E4F8 

2B 

DEC 

HI 

E4F9 

D7 

RST 

10H 

E4FA 

2809 

JR 

Z,POKE3 



； —— BANK NAME 

E4FC 

CF 

RST 

8 

E4FD 

2C 

DB 

参 參 

f 

E4FE 

CDBCE4 

CALL 

GETBN 

E501 

Cl 

POP 

BC 

E502 

D1 

POP 

DE 

E503 

F5 

PUSH 

AF 

E504 

C5 

PUSH 

BC 

E505 


POKE3: 


E505 

Cl 

POP 

BC 


；SELECT TEXT RAM 


;SELECT N — BASIC ROM 


；TEXT POINTER 


；ACC 9 C are MODE 


••SAVE MODE 
: DATA 


；DATA 

: POP OLD MODE 
: SAVE NEW MODE 
；DATA 

； B=DATA 
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E506 

FI 


POP 

AF 

E507 

3273E5 


LD 

(MODE) , A 

E50A 

D1 


POP 

DE 

E50B 

ED5371E5 


LD 

(ADRS),DE 

E50F 

E5 


PUSH 

HL 

E510 

2A71E5 


LD 

HL f (ADRS) 

E513 

CD28E5 


CALL 

IFSWAP 

E516 

CD99E4 


CALL 

SETMDE 

E519 

70 


LD 

(HL) , B 

E51A 

D35F 


OUT 

(5FH),A 

E51C 

3ti トト 


LD 

A, 255 

E51E 

D371 


OUT 

(71H),A 

E520 

3AC2E6 


LD 

A, CPORT31) 

E523 

D331 


OUT 

C31H),A 

E525 

FB 


El 


E52G 

El 


POP 

HL 

E527 

C9 

• 

RET 




» 

• ■ 

f 

• 

- SWAP? - 

E528 


IFSWAP: 


E528 

3A73E5 


LD 

A f (MODE) 

E52B 

FE03 


CP 

3 

E52D 

D0 


RET 

NC 

E52E 

1100C0 


LD 

DE,0C000H 

E531 

E7 


RST 

20H 

E532 

D8 


RET 

C 

E533 

F3 


DI 


E534 

78 


LD 

A, B 

E535 

215084 


LD 

H し ， SWAREA 

E538 

117AE5 


LD 

DE,WKBACK 

E53B 

010600 


LD 

BC, 6 

E53E 

EDB0 


LDIR 


E540 

El 


POP 

H し 

E541 

F5 


PUSH 

AF 

E542 

3ED3 


ID 

A ， 0D3H 

E544 

115084 


ID 

DE,SWAREA 

E547 

12 


LD 

(DE) , A 

E548 

3A73E5 


し D 

A , (MODE) 

E54B 

C65C 


ADD 

A, 5CH 

E54D 

13 


INC 

DE 

E54E 

12 


LD 

(DE) • A 

E54F 

23 


INC 

HL 

E550 

23 


INC 

HL 

E551 

23 


INC 

HI 

E552 

13 


INC 

DE 

E553 

010300 


ID 

BC, 3 

E556 

EDB0 


し DIR 


E558 

3EC9 


LD 

A,0C9H 

E55A 

12 


LD 

(DE) ， A 

E55B 

Cl 


POP 

BC 

E55C 

E5 


PUSH 

HL 

E55D 

2A71E5 


LD 

H し， （ ADRS) 

E560 

CD5084 


CALL 

SWAREA 

E563 

C5 


PUSH 

BC 

E564 

217AE5 


LD 

HL,WKBACK 

E5G7 

115084 


LD 

DE,SWAREA 

E56A 

010600 


LD 

BC, S 

E5GD 

EDB0 


LDIR 


E56F 

Cl 


POP 

BC 

E570 

C9 


RET 








t 

參 

- WUKI\ AKHA - 

E571 

0000 

ADRS: 

DW 

0 

E573 

00 

MODE: 

DB 

0 

E574 

000000 

WED27: 

DB 

0,0,0 




ミ TEXT POINTER 


;MODE <> G - RAM 

；CP HL 9 DE 
;H し < C 000 H 

;DATA 

RET ADRS 

DATA 

OUT 


;NEW RETURN ADRS 
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E57.7 000000 V/ED9F: DB 0,0,0 
E57A 00000000 WKBACK:DW 0,0,0 
E57E 0000 

E580 END 


付 1-2 N88-BASIC 復活 


PC^TecKnow 8800mk11 
« RECOVER PROGRAM » 


relocatable 


〇 RG 0F260H 


05BD 

1BBB 

44D5 

E658 

EB18 

EB1A 


F260 

F260 2A58E6 
F263 3601 

F2G5 CDBD05 
F268 CDBB1B 
F26B CDD544 
F26E 23 
F2GF 2218EB 

F272 AF 
F273 321AEB 

F27G FF 
¥211 


SET し NK •• EQU 
ADRLINiEQU 
WNTORL:EQU 

TXTBGN:EQU 
TXTENDiEQU 
LABE し F:EQU 


RECOVR : 

LD 

LD 


XOR 

LD 


05BDH 

1BBBH 

44D5H 

0EG58H 

0EB18H 

0EB1AH 


HL, (TXTBGN) 
(HL),1 


A 

( し ABELF) 9 A 


DB 0FFH 
END 


CAL し SETLNK 
CALL ADRLIN 
CAL し WNTORL 
INC HI 

LD CTXTEND),HL 


: SET ALL LINK POINTERS 
；CHANGE ADRS TO LINEH 
；WINDOW TO REAL ADRS 

；TEXT SATRT ADRS 
；TEXT END ADRS+1 
；SHOW THAT LABELS ARE REGISTERD 


；RETURN TO MONITOR 
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付 1-3 ROLL 文サブ ー ルーチン 


— SET PARAMETER 


E5 

PUSH 

HL 

E5 

PUSH 

HL 

1100C0 

し D 

DE,GVRTOP 

19 

ADD 

HL, DE 

E3 

EX 

(SP),HL 

E5 

PUSH 

H し 

21803 E 

LD 

H し ， GVRBYT 

Cl 

POP 

BC 

B7 

OR 

A 

ED42 

SBC 

H し ， BC 

4D 

LD 

C , し 

44 

ID 

B, H 

El 

POP 

HI 


BF96 E5 
BF97 D5 
BF98 C5 

BF99 F3 
BF9A D35C 
BF9C EDB0 
BF9E D35F 
BFA0 FB 


BFA1 El 
BFA2 Cl 

BFA3 C5 
BFA4 E5 

BFA5 1180FE 
BFA8 7C 
BFA9 F6C0 
BFAB 67 

BFAC MOVE: 

BFAC F3 
BFAD D35D 
BFAF 0A 


ROLL GVRAM0 
PUSH HL 
PUSH DE 
PUSH BC 

DI 

OUT (GVRAM0),A 
LDIR 

OUT (MAINRM) f A 
El 

MOVE GVRAM1 TO GVRAM0 
POP H し 
POP BC 

PUSH BC 
PUSH HL 

LD DE,GVREND 
LD A,H 
OR 0C0H 
LD H f A 

DI 

OUT CGVRAM1),A 
LD k, (BC) 


PC-TechKnow 8800mk11 
« SCROLL COMMAND » 


DUMMY = USR (SCROLL. BYTE) 


re 1oca table 



ORG 

0BF80H 

005C 

GVRAM0:EQU 

5CH 

005D 

GVRAM1:EQU 

5DH 

005F 

MAINRM:EQU 

5FH 

C000 

GVRTOP:EQU 

0C000H 

3E80 

GVRBYT:EQU 

16000 

FE80 

GVREND:EQU 

GVRTOP+GVRBYT 


BF80 


START: 




； - GET 

PARAMETER 

BF80 

7E 

LD 

A, (HL) 

BF81 

23 

INC 

HL 

BF82 

66 

LD 

H, (HL) 

BF83 

6F 

LD 

し A 


OUTPUT PORT FOR SELECT GVRAM0 

OUTPUT PORT FOR SELECT GVRAM1 

OUTPUT PORT FOR SELECT MAIN RAM 

;GRAPHIC VRAM TOP ADDRESS 


;H し =SCROLL. BYTES 


4569ABCF 01345 
8888888899999 

BBBBBBBBBBBBB 


417 











BFB0 

D35C 


OUT 

(GVRAM0),A 

BFB2 

77 


LD 

(HL),A 

BFB3 

D35F 


OUT 

CMAINRM) f A 

BFB5 

FB 


El 


BFB6 

23 


INC 

HL 

BFB7 

03 


INC 

BC 

BFB8 

E7 


RST 

20H ； 

BFB9 

20F1 


JR 

NZ,MOVE 



• MM MM M 

9 

•一一 ROLL 

GVRAM1 

BFBB 

Cl 


POP 

BC 

BFBC 

D1 


POP 

DE 

BFBD 

El 


POP 

HL 

BFBE 

C5 


PUSH 

BC 

BFBF 

F3 


DI 


BFC0 

D35D 


OUT 

(GVRAM1),A 

BFC2 

EDB0 


LDIR 


BFC4 

D35F 


OUT 

CMAINRM) f A 

BFC6 

FB 


El 




I 

•一一 ERASE NEW LINES ON GVRAM1 

BFC7 

El 


POP 

HL 

BFC8 

7C 


ID 

A, H 

BFC9 

F6C0 


OR 

0C0H 

BFCB 

67 


LD 

H, A 

BFCC 

5D 


LD 

E, L 

BFCD 

54 


し D 

D, H 

BFCE 

13 


INC 

DE 

BFCF 

Cl 


POP 

BC 

BFD0 

F3 


DI 


BFD1 

D35D 


OUT 

(GVRAM1) f A 

BFD3 

3600 


LD 

(HL) , 0 

BFD5 

EDB0 


LDIR 


BFD7 

D35F 


OUT 

CMAINRM) f A 

BFD9 

FB 


El 


BFDA 

C9 


RET 


BFDB 



END 



CP HL,DE 


付 1-4 アトリビュートセットサブルーチン 


PC-TechKnow 8800mkI I 
« ATTRIBUTE SET » 


DUMMY = USR (VRAM. ADRS) 

relocatab le 


ORG 


4351 


PUTATR:EQU 

F320 


ATRSET: 

F320 

0E00 

LD 

F322 

7E 

LD 

F323 

23 

INC 

F324 

66 

LD 

F325 

6F 

LD 

F326 

CD5143 

CALL 

F329 

C9 

RET 

F32A 


END 


0F320H 

4351H 


C f 0 ； 

A, (HL) 

HI 

H f (HL) 

L f A ； 

PUTATR 


C < 一 .attribute code 


HL <- adrs to set in VRAM 
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付 1-5 グラフィックデータ 書き込み サブルーチン 


DI 

LD 

OUT 

し D 

OUT 

INC 

LD 

OUT 

LD 

OUT 

INC 

LD 

OUT 

LD 


A, (DE) 
(5CH) , A 
(HL) f A 

C5KH ； f A 
DE 

A, (DE) 
(5DH),A 
(HL) , A 
C5FH) f A 
DE 

A, (DE) 
(5EH) , A 
(HL) , A 
(5FH) , A 
DE 


EX DE,HL ; DE = DATA.POINTER 

GS0: 

PUSH BC ; BC = DATA.SIZE 

GS1 : 


8678 EB 

8679 
8679 C5 
8G7A 
867A F3 
867B 1A 
867C D35C 
867E 77 

867F D35F 
8681 13 
86821A 
8683 D35D 

8685 77 

8686 D35F 
868813 
86891A 
868A D35E 
868C 77 
868D D35F 
868F 13 
8690 FB 


869123 
8692 10E6 


INC H し 
DJNZ GS1 


8694 

8695 

8696 

8698 

8699 
8G9A 
869C 
8G9D 
869E 
869F 
86A1 


Cl 

C5 

3E50 

90 

4F 

0600 

09 

Cl 

0D 

20D8 

C9 


POP 

PUSH 

LD 

SUB 

LD 

LD 

ADD 

POP 

DEC 

JR 

RET 



H し， BC 

BC 

C 

NZ, GS0 


;HL=HL+(80 — B) 


86A2 


END 


PC-Te chKnow 8800mk11 
« GRAPHIC SUB » 


re loca teb1e 


ORG 86GAH 


F260 


DATAAD:EQU 

0F2G0H 

866A 

00 

DB 

0 

866B 


START: 


8G6B 

7E 

LD 

A, (HL) 

866C 

23 

INC 

HL 

8G6D 

66 

LD 

H, (HL) 

866E 

6F 

LD 

L, A 

866F 

ED5B60F2 

LD 

DE, CDATAAD) 

8673 

EB 

EX 

DE,HL 

8674 

4E 

し D 

C f (HL) 

8675 

23 

INC 

HI 

8676 

46 

LD 

B, (HL) 

8677 

23 

INC 

HL 


；POINTER TO GRAPHIC DATA 

;TO STOP HELP MSG OF MONITOR 

;HL = GVRAM.ADRS 


T c 

UNI 
◦ IE 
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付 1-6 Print Lprint 


PC-TechKnow 8800mklI 

« PRINT/LPRINT » 

—• — — » —• —• — — — — ™ ~~一 




; POLL ON/OFF 

A 



t 

• 

9 

re lo 

eatable 




ORG 

0F2G0H 

0095 


ON: 

EQU 

095H 

00EE 


OFF: 

EQU 

0EEH 

0393 


ERRSYN:EQU 

0393H 

E64C 


LPTFLG : EQU 

0E64CH 



t 

• 

POLL 

COMMAND ( from 

F260 


POLL: 



F260 

FE95 


CP 

ON 

F262 

280C 


JR 

Z,PO しし 1 

F264 



CP 

OFF 

F266 

C 29303 


JP 

NZ f ERRSYN 

F269 

D7 


RST 

10H 

F26A 

C 29303 


JP 

NZ, biHKSYN 

F26D 

AF 


XOR 

A 

F26E 

1806 


JR 

PO しし 2 

F270 


POL し 1••• 



F270 

D7 


RST 

10H 

F271 

C 29303 


JP 

NZ,ERRSYN 

F274 

3E01 


ID 

A # 1 

F276 


POLL2 : 



F276 

3286F2 


LD 

(P し PFLG) • A 

F279 

C9 


RET 




f 

TOP 

OF PRINT ( from 

F27A 


• 

PRNTOP: 


F27A 

F5 


PUSH 

AF 

F27B 

3A8GF2 


LD 

A,(PLPFLG) 

F27E 

B7 


OR 

A 

F27F 

2803 


JR 

Z,NOTPLP 

F281 

324CE6 


LD 

(LPTFLG),A 

F284 


NOTPLP : 


F284 

F1 


POP 

AF 

F285 

C9 


RET 




9 

秦 

■ WORKING AREA 

F286 

00 

PLPFLG : DB 

« 

0 

F287 


» 

END 



0EEB6H ) 


0EDCFH ) 
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^1-7 テキスト画面のコピー 


35C2 

429D 

4452 

E6C1 

EF88 

EF89 

8000 

8001 

8002 


8005 

8009 

800D 

8011 


8015 

8015 

8017 

801A 

801C 

801C 

801F 

8021 

8022 

8025 

8026 
8028 
8028 
8029 
802C 
802F 

8032 

8033 

8034 

8037 

8038 

803A 

803B 

803E 

803F 

8040 

8043 

8044 

8046 


PC-TechKnow 8800mklI 
« TEXT COPY » 


1 

PTYPE has 

the type of printer 




06: 

PC-8023(C) 




0E: 

PC - 8821/8822,NM~9100/9200, NK-3618 


IB: 

PC-PR201 




IE: 

NM-9300/9400 




ORG 

08000 H 



BRKCHK:EQU 

35C2H 

；BREAK CHECK (CY=1 if STOP) 

CSRVRM:EQU 

429DH 

;CURSOR POS 

一 > VRAM AUKS 

GETVRM:EQU 

4452H 

；GET CHAR & 

ATTR AT HL 

PORT40:EQU 

0E6C1H 

;BACK UP OF 

PORT 40H 

YWIDTH:EQU 

0EF88H 

;Y OF WIDTH 


XWIDTHrEQU 

0EF89H 

;X OF WIDTH 


0E 

PTYPE: DB 

0EH 

;DEFAULT IS 

PC-8821 

00 

DB 

00 



C 31580 

JP 

叙 

START 




▼ 

; - WORK AREA - 



00000000 

BUFFER : DW 

0, 0, 0， 0 



00000000 





00000000 

BUF2: DW 

0, 0, 0， 0 



00000000 






9 

■ 

CODES - 




START: EQU 

$ 



D3EB 

OUT 

(0EBH), A 

； DESF1 FCT KANJI ROM 

CD6980 

CAL し 

し PTMDE 



2E01 

LD 

L,1 

;SET Y - POS 

TO 0 


TCOPY1: 




CDC235 

CALL 

BRKCHK 



3825 

JR 

C, TCOPY3 



E5 

PUSH 

HL 



CDE780 

CAL し 

TOPLIN 



El 

POP 

HL 



2601 

LD 

H,1 

;SET X-POS 

TO 0 


TCOPY2: 




E5 

PUSH 

HL 



CD9D42 

CALL 

CSRVRM 

； (X,Y) -> VRAM ADRS 

CD5244 

CALL 

GETVRM 

;(ADRS)-> 

B:c h a r, C:attr 

CD4A81 

CALL 

PRINTC 

;LPRINT ONE CHAR 

El 

POP 

H し 



24 

INC 

H 

;++x 


3A89EF 

LD 

A, (XWIDTH) 

; 40 or 80 


BC 

CP 

H 



30EE 

JR 

NC, TCOPY2 



E5 

PUSH 

HL 



CD3F81 

CALL 

END し IN 



El 

POP 

HL 



2C 

INC 

L 



3A88EF 

し D 

A, CYWIDTH) 



BD 

CP 

し 



30D6 

JR 

NC, TCOPY1 




TCOPY3: 


421 








8046 

064E 

LD 

B ， 

f N 9 




8048 

3A0080 

LD 

A, 

CPTYPE) 




804B 

FE06 

CP 

0GH 

;PC -8023? 


804D 

2802 

JR 

z. 

TCOPY4 

;YES 



804F 

0648 

ID 

B, 





8051 


TC0PY4 : 






8051 

3E1B 

LD 

A, 

27 




8053 

CD2D82 

CALL 

し PTBYT 




8056 

78 

LD 

A, 

B 




8057 

CD2D82 

CALL 

し PTBYT 




805A 

216180 

LD 

HL, 

ENDMDE 




805D 

CD2482 

CALL 

し PTSTR 




8060 

C9 

RET 






8061 

0F1B41IB 

ENDMDE:DB 

15, 

27, ， A ，， 27, 

9 〕 ， ， 13, 10，0 



8065 

5D0D0A00 









; - PRINTER MODE SET 




8069 


LPTMDE: 






8069 

060F 

し D 

B, 

15 

♦ 

s 

SO 

CODE 

806B 

3A89EF 

ID 

A, 

CXV/IDTH) 




806E 

FE32 

CP 

50 





8070 

3002 

JR 

NC, 

し PTMD0 




8072 

060E 

し D 

B, 

14 

• 

f 

SI 

CODE 

8074 


LPTMD0: 






8074 

78 

LD 

A f 

B 




8075 

CD2D82 

CALL 

し PTBYT 




8078 

3A0080 

LD 

A ， 

(PTYPE) 




807B 

D606 

SUB 

6 





807D 

6F 

ID 

L, 

A 




807E 

0F 

RRCA 






807F 

85 

ADD 

A, 

L 




8080 

6F 

LD 

し， 

A 




8081 

2600 

ID 

H ， 

0 




8083 

11B780 

ID 

DE, 

MODSEQ 




8086 

19 

ADD 

HL, 

DE 




8087 

5E 

LD 

E ， 

(HL) 




8088 

3A88EF 

LD 

A, 

(YWIDTH) 




808B 

FE15 

CP 

21 





808D 

3003 

JR 

NC, 

し PTMD1 




808F 

23 

INC 

HL 





8090 

5E 

し D 

E, 

(HL) 




8091 

2B 

DEC 

H し 





8092 


LPTMD1 : 






8092 

D5 

PUSH 

DE 





8093 

23 

INC 

HL 





8094 

23 

INC 

HI 





8095 

CD2482 

CALI 

LPTSTR 




8098 

D1 

POP 

DE 





8099 

1600 

LD 

D, 

0 




809B 

21A380 

LD 

HL, 

し FWID 




809E 

19 

ADD 

HL, 

DE 




809F 

CD2482 

CALL 

し PTSTR 




80A2 

C9 

RET 







80A3 

IB 543132 

LFWID: 

DB 

27, f T12,，0 

;0 

80A7 

00 





80A8 

IB 543135 


DB 

27, f T15 f p 0 

; 5 

80AC 

00 





80AD 

IB 543136 


DB 

27, ’ T16、0 

;10 

80B1 

00 





80B2 

IB 543230 


DB 

27,* T20* f 0 

;15 

80B6 

00 





80B7 


MODSEQ 

• 

參 



80B7 

0A0F1B51 


DB 

10,15,27 パ Q’ ， 27, 

^ 〔、 0, 0 ， 0, 0, 0， 0 

80BB 

1B5B0000 





80BF 

00000000 





80C3 

0A0F1B48 


DB 

10 ， 15,27 f f H f f 27, 

， , 0 ， 0^ 0, 0, 0, 0 

80C7 

1B3E0000 





80CB 

00000000 






;PC-8023 

;PC-8821 


422 




80CF 

80D3 

80D7 

80DB 

80DF 

80E3 


00051348 

00000000 

00000000 

0A0F1B51 

1A411A46 

1B3E0000 


DB 


DB 


00, 05, 27 バ H s t 0 ， 0, 0 t 0 S 0, 0, 0, 0 


10 ， 15, 27〆 QH A ， ， 26, T 9 27 パ〉，， 0， 0 


TOP OF LINE PROCEDURE 


80E7 

80E7 

80EA 

80EB 

80ED 

80F0 

80F3 

80F5 

80F7 

80FA 


TOP し IN: 


3A0080 

GF 

2600 

11F980 

3A89EF 

FE32 

3003 

111981 


LD 

LD 

LD 

LD 

LD 

CP 

JR 

LD 


A, (PTYPE) 

し ， A 

H f 0 

DE ， TOPS80 - G 
A, (XWIDTH) 

50 

NC f TOP し N1 
DE, TOPS40 - 6 


TOP し N 1: 


80FA 

19 

ADD 

H し ， DE 




80FB 

CD2482 

CALL 

LPTSTR 




80FE 

C9 

RET 





80FF 


TOPS80: 





80FF 

IB 533036 

DB 

27, # S0640 9 ,0 f 

0 

参 

• 

PC-8023 

8103 

34300000 






8107 

IB 493036 

DB 

27, f 10640 f f 0, 

0 

• 

t 

PC-8821 

810B 

34300000 






810F 

IB 493036 

DB 

27,• 10640 ， ， 0, 

0 

• 

f 

PR-201 

8113 

34300000 






8117 

1B4A3036 

DB 

27, f J064V , 0, 

0 

• 

t 

NM-9300/9400 

81IB 

34300000 






811F 


TOPS40: 





81IF 

IB 533033 

DB 

27 f 1 S0320 f ,0, 

0 

参 

9 

PC-8023 

8123 

32300000 






8127 

IB 493033 

DB 

27 ，， 10320 f ,0, 

0 

• 

9 

PC-8821 

812B 

32300000 






812F 

IB 493033 

DB 

27" 10320 f f 0, 

0 

• 

t 

PR-201 

8133 

32300000 






8137 

1B4A3033 

DB 

27, • J0320 、 0, 

0 

♦ 

9 

NM - 9300/9400 

813B 

32300000 








:- END OF LINE PROCEDURE 



813F 


ENDLIN: 





813F 

3E0D 

LD 

A,13 


• 

1 

CARRIGE RETURN 

8141 

CD2D82 

CALL 

LPTBYT 




8144 

3E0A 

し D 

A,10 


• 

» 

LINE FEED 

8146 

CD2D82 

CALL 

LPTBYT 




8149 

C9 

RET 







; - PRINT 

A SCREEN CHARACTER 



814A 


PRINTC: 





814A 

C5 

PUSH 

BC 




814B 

CDC181 

CALL 

MKFONT 


• 

* 

PREPARE THE FONT 

814E 

Cl 

POP 

BC 




814F 

CB59 

BIT 

3, C 




8151 

200C 

JR 

NZ, PRNC1 


參 

S 

COLOR ATTRIBUTE 



; - MONOCHROME ATTRIBUTE 



8153 

CB51 

BIT 

2， C 




8155 

C4AA81 

CALL 

NZ, REVRSE 


• 

» 

REVERSE BIT ON 

8158 

CB41 

BIT 

0, C 




815A 

C4B681 

CALL 

NZ, SECRET 


• 

• 

SECRET BIT ON 

815D 

1806 

JR 

PRNC2 






; - COLOR ATTRIBUTE 




815F 


PRNC1 : 





815F 

79 

ID 

A, C 




8160 

E6E0 

AND 

0E0H 




8162 

CCB681 

CALL 

Z. SECRET 


• 

t 

COLOR 0 


- SEND ONE CHARACTER 


PR-201 

NM 一 9300/S400 


THE CHAR 


423 






JR 

RLC 

RRC 

RRA 

CALL 


PRNC3C 


PRNONE 

E 

PRNC3C 


PRNONE 


A, 

E, 

6 

Z, 

E 

17 

C, 

E f 


CPTYPE) 

0 

PRNC3 


PRNC3 

3 


PC -8023? 

Yes. 8 dots mode 

PC-8821 or PR - 201? 
Yes. 16 dots mode 


dots 

dots 

dots 


DJNZ PRNC3B 


ID H し ， BUFFER 

LD D f 8 

し D C, (HL) 

LD A, 80H 
LD B, 8 

RRC C 
RRA 

CALLC, PRNONE 
BIT 0 ， E 


PRNONE: 

CD2D82 CA ししし PTBYT 
3E80 LD A, 80H 
C9 RET 


PHNC3A 


8165 PRNC2: 

: E = 


8165 

3A0080 


8168 

1E00 


816A 

D606 


8ISC 

2807 


816E 

1C 


816F 

DG11 


8171 

3802 


8173 

1E03 


8175 


PRNC3: 

8175 

210580 


8178 

1608 


817A 


PRNC3A 

817A 

4E 


817B 

3E80 


817D 

0608 


817F 


PRNC3B 

817F 

CB09 


8181 

IF 


8182 

DCA481 


8185 

CB43 


8187 

2814 


8189 

CB01 


818B 

CB09 


818D 

IF 


818E 

DCA481 


8191 

CB4B 


8193 

2808 


8195 

CB01 


8197 

CB09 


8199 

IF 


819A 

DCA481 


819D 


PRNC3C 

819D 

10E0 


819F 

23 


81A0 

15 


81A1 

20D7 


81A3 

C9 



;==== MODIFY FONT WITH ATTRIBUTE 
； - REVERSE FONT 


81AA 


REVRSE: 


81AA 

210580 

LD 

HL, BUFFER 

81AD 

0608 

LD 

B, 8 

81AF 


REVR1 : 


81AF 

7E 

LD 

A, (HL) 

81B0 

2F 

CPL 


81B1 

77 

ID 

(H し ）， A 

81B2 

23 

INC 

HL 

81B3 

10FA 

DJNZ 

REVR1 

81B5 

C9 

RET 




； - SECRET 

FONT 

81B6 


SECRET: 


81B6 

210580 

ID 

HL, BUFFER 

81B9 

0608 

LD 

B, 8 

81BB 

AF 

XOR 

A 

81BC 


SECR1 : 


81BC 

77 

LD 

(HL) , A 

81BD 

23 

INC 

H し 


c c A し丁 
R L R R A I 
J R R R c B 


zee elzee c 


B c B 

DDURNURD 

LLSJISJL 


8 6 4 
12 


0 13 


4 4 7 9 
A A A A 

lx IX IX IX 
8 8 8 8 


hldnz.. 


c c T 

N E R E 
I D J R 
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4, C 

NZ, GRAPH 


- CHARACTER 

し D し ， B 

LD H, 2 
ADD HL, HL 
ADD HL, HL 


BIT 

JR 

BIT 

JR 

JR 


3, C 

NZ, MKF1 
7 C 

NZ, GRAPH 
MKF2 


81CF 

81D0 

81D2 

81D3 


8104 

110080 


LD 

DE, BUF2 

81D7 

0604 


ID 

B, 4 

81D9 


MKF3: 



81D9 

7D 


LD 

A , し 

81DA 

D3E8 


OUT 

(0E8H), A 

81DC 

7C 


し D 

A, H 

81DD 

D3E9 


OUT 

(0E9H), A 

81DF 

D3EA 


OUT 

(0EAH), A 

81E1 

00 


NOP 


81E2 

00 


NOP 


81E3 

DBE9 


IN 

A, (0E9H) 

81E5 

12 


LD 

CDE), A 

81E6 

13 


INC 

DE 

81E7 

DBE8 


IN 

A, (0E8H) 

81E9 

12 


LD 

(DE), A 

81EA 

13 


INC 

DE 

81EB 

D3EB 


OUT 

C0EBH) f A 

81ED 

23 


INC 

HL 

81EE 

10E9 


DJNZ 

MKF3 



• 

f 

mb mmm m 

- ROTETE -9 

81F0 

110580 


ID 

DE, BUFFER 

81F3 

0E08 


ID 

C, 8 

81F5 


MKF4: 



81F5 

210080 


LD 

HL, BUF2 

81F8 

0608 


LD 

B, 8 

81FA 

AF 


XOR 

A 

81FB 


MKF5: 



81FB 

CB0G 


RLC 

(H し） 

81FD 

IF 


RRA 


81FE 

23 


INC 

HL 

81FF 

10FA 


DJNZ 

MKF5 

8201 

12 


し D 

① E) , A 

8202 

13 


INC 

DE 

8203 

0D 


DEC 

C 

8204 

20EF 


JR 

NZ f MKF4 

8206 

C9 


RET 



SET ADRS 


SET ADRS HIGH 


READ FIRST BYTE 


READ SECOND BYTE 


INCREMENT KANJI ADRS 


- MAKE し OV/ RESOLUTION GRPHICS 


8207 

8207 

210580 

GRAPH: 

LD 

HL, 

820A 

1E02 


LD 

E, 

820C 

820C 

AF 

GRPH1: 

XOR 

A 

820D 

0E04 


LD 

c. 

820F 

820F 

CB08 

GRPH2: 

RRC 

B 

8211 

IF 


RRA 


8212 

IF 


RRA 



BUFFER 


2 


4 


81C1 CB59 
81C3 2006 
81C5 CB79 
81C7 203E 
81C9 1804 

81CB MKF1 : 

81CB CBG1 
81CD 2038 

81CF MKF2: 


；MONOCHROME MODE 

;COLOR MODE 

;CHAR CODE 

;HL <- (CHAR CODE OR &h200) 
;H し < 一 KANJI ROM ADRS Cl/4) 


81BE 10FC DJNZ SECR1 

81C0 C9 RET 

；==== PREPARE THE FONT OF THE CHAR 
81C1 MKFONT: 



8 

G 


2 

0 

6 9 9 
2 2 2 
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DEC C 

JR NZ f GRPH2 

LD C, A 
ADD A, A 

ADD A, C 


8213 0D 

8214 20F9 

8216 4F 

8217 87 

8218 81 

8219 0E04 
821B 
821B 77 
821C 23 
821D 0D 
821E 20FB 

8220 ID 

8221 20E9 

8223 C9 


8224 

8224 7E 

8225 B7 

8226 C8 

8227 CD2D82 
822A 23 
822B 18F7 


822D 
822D F5 
822E 

822E DB40 

8230 0F 

8231 38FB 

8233 FI 

8234 D310 

8236 F5 

8237 F3 

8238 3AC1E6 
823B E6FE 
823D D340 
823F F601 
8241 D340 

8243 FB 

8244 FI 

8245 C9 

8246 


LD 

GRPH3: 

LD 

INC 

DEC 

JR 


C f 4 
CHL) , A 

H し 

C 

NZ f GRPH3 


DEC E 

JR NZ, GRPH1 
RET 


;==== LPT OUT SUBROUTINES 

:- LPT OUT A STRING 

LPTSTR: 

LD A, CHL) 

OR A 
RET Z 
CALL し PTBYT 
INC HL 
JR し PTSTR 

； - LPT OUT A BYTE 

LPTBYT: 


PUSH 

LPTBT1: 

IN 

RRCA 

JR 

POP 

OUT 

PUSH 

DI 

LD 

AND 

OUT 

OR 

OUT 

El 

POP 

RET 

END 


AF 

A, (40H) 

C f し PTBT1 
AF 

(10H), A 
AF 

A, (PORT40) 
0FEH 
(40H), A 
1 

(40H), A 
AF 
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付 1-8 グラフィック画面のコピー 


804F 


CDC235 

GCOPY1 : 

CALL 

BRKCHK 


3826 

JR 

C f GCOPY3 

；IF STOP 

D5 

PUSH 

DE 


CDB180 

CALL 

TOPLIN 

；SET TO BIT IMAGE MODE 

06C8 

し D 

B, 200 


C5 

GCOPY2: 

PUSH 

BC 


CDC980 

CALL 

SETCBF 

；SET COLOR BUFFER 

CDF180 

CALL 

CNGCTP 

； CO し OR 饵 一 > PATTERN 

CD0781 

CALL 

OUTPTN 

； OUT PATTERN TO PRINTER 

11B0FF 

LD 

DE, -80 


DD19 

ADD 

IX, DE 

；MOVE TO THE BYTE ABOVE 

Cl 

POP 

BC 


10EE 

DJNZ 

GCOPY2 



PC-TechKnow 8800mkI I 
« GRAPHIC SCREEN COPY » 


PTYPE (PRINTER TYPE) 

0E: PC-8821/8822,NM-9100/9200,NK-3618 

16: PR-201 

IE: NM-9300/9400 


BREAK CHECK (CY-1 if STOP) 
GVRAM PEEK ROUTINE 
BACK UP OF PORT 40H 


TO LOCATE CPATRN AT 〇 RG+10H 


••==== WORK AREA === 
8008 00000000 COLORB:DB 0, 0, 0, 0, 0 5 0 ， 0, 0 
800C 00000000 


MSB —> LSB 


;==== DOT PATTERN ===== 

8010 00202151 CPATRN:DB 0,20H,21H,51H,S9H,9EH,0DEH,0FFH 

8014 699EDEFF 


8018 

8018 

801A 

801B 

801D 

801F 

8022 

8025 

8028 


DB70 

F5 

3E80 

D370 

212381 
110083 
010A00 
EDB0 


802A CD7080 
802D DD2130FE 
8031115000 


START: 


IN 

PUSH 

LD 

OUT 

LD 

LD 

LD 

LDIR 


CODES 

A, (70H) 
AF 

A, 80H 
(70H) , A 


HL, GPEEKR 
DE, GPEEK 

BC, GPEEKE - GPEEKR 


CALL LPTMDE 

LD IX, 0C000H+15920 

LD DE, 80 


READ OAR 
SAVE OAR VALUE 

RESET WINDOW 


MOVE GRAHIC PEEK ROUTINE 

PRINTER MODE SET 
ADDRESS OF (0,199) 
n OF BYTES / 640DOTS 


8051 CDBF80 CALL ENDLIN ; CARRIGE RETURN 

805411813 E LD DE, 16001 

8057 DD19 ADD IX, DE 

8059 D1 POP DE 

805A IB DEC DE 


4479ADFF 0369 CE 
33333333444444 
00000000000000 
88888888888888 
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805B 

7A 

LD 

A f D 


805C 

B3 

OR 

E 


805D 

20D5 

JR 

NZ # GC0PY1 


805F 


GC0PY3: 



805F 

FI 

POP 

AF 


8060 

D370 

OUT 

(70H), A ; RESTORE OAR 


8062 

216980 

LD 

HI, ENDMDE 


8065 

CD2D81 

CALL 

LPTSTR ; NORMALIZE PRINTER MODE 

8068 

C9 

RET 



8069 

1B411B5D 

ENDMDE:DB 

27, ’ A 、 27,〕 5 p 13 9 10， 0 


806D 

0D0A00 






； - SET PRINTER MODE 


8070 


LPTMDE: 



8070 

3A0080 

LD 

A f CPTYPE) ; PRINTER TYPE 


8073 

DS0E 

SUB 

0EH 


8075 

6F 

LD 

し ， A 


8076 

0F 

RRCA 



8077 

85 

ADD 

A , し ;A < 一 Ax 1 . 5 


8078 

6F 

し D 

L f A 


8079 

2600 

LD 

H, 0 


807B 

118D80 

ID 

DE, MDESEQ 


807E 

19 

ADD 

HL f DE 


807F 

CD2D81 

CALL 

し PTSTR 


8082 

3E1B 

ID 

A, 27 


8084 

CD3681 

CAUL 

LPTBYT 


8087 

3E48 

ID 

A, f H f 


8089 

CD3681 

CALL 

LPTBYT 


808C 

C9 

RET 



808D 


MDESEQ: 



8080 

IB 543136 

DB 

27, ， TlG f c 27, s 0, 0 ， 0, 0, 0， 0 

;PC-8821 

8091 

1B3E0000 




8095 

00000000 




8099 

IB 543132 

DB 

27, ， T12’ ， 0, 0 ， 0, 0, 0, 0 ， 0， 0 

； PR -201 

8090 

00000000 




80A1 

00000000 




80A5 

1B3E1A41 

DB 

27,， >• • 26, • A 9 ,26, ， F ， ， 27, • T16, • 0， 0 

； NM-9300 

80A9 

1A 461854 




80AD 

31360000 







； - TOP OF LINE PROCEDURE 


80B1 


TOP し INi 



8031 

21B880 

LD 

HI, TOPSEQ 


80B4 

CD2D81 

CA し L 

LPTSTR 


80B7 

C9 

RET 



80B8 

IB 493038 

TOPSEQ:DB 

27, • 10800、 0 


80BC 

303000 






； - END OF LINE PROCEDURE 


80BF 


ENDLIN: 



80BF 

21C680 

LD 

HL, ENDSEQ 


80C2 

CD2D81 

CALL 

LPTSTR 


80C5 

C9 

RET 



80CG 

0D0A00 

ENDSEQrDB 

13,10, 0 




； - SET COLOR BUFFER 


80C9 


SETCBF: 

• 


80C9 

0E5E 

LD 

C, 5EH 

；AT FIRST, READ GREEN 

80CB 

1603 

ID 

D, 3 

；READ 3 PLANES 

80CD 


STCBF1 : 



80CD 

CD0083 

CALL 

GPEEK 

;A <- GVRAM (C t IX) 

80D0 

210880 

ID 

H し ， COLORB 


80D3 

0608 

LD 

B, 8 



80D5 STCBF2 : 

80D5 07 RLCA 
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80D6 CB1G 
80D8 23 
80D9 10FA 


RL CHL) 
INC H し 
DJNZ STCBF2 


80DB 

0D 

DEC 

C 

；CHANGE COLOR PLANE 

80DC 

15 

DEC 

D 


80DD 

20EE 

JR 

NZ, 

STCBF1 

80DF 

210880 

LD 

HL, 

C 〇し〇 RB 

80E2 

3A0180 

し D 

A, 

(MASK) 

80E5 

4F 

LD 

c, 

A 

80E6 

0608 

LD 

B, 

8 

80E8 


STCBF3: 



80E8 

7E 

LD 

A, 

(HL) 

80E9 

A9 

XOR 

C 


80EA 

E607 

AND 

7 


80EC 

77 

LD 

CHL), A 

80ED 

23 

INC 

H し 


80EE 

10F8 

DJNZ 

STCBF3 

80F0 

C9 

RET 





； - CHANGE COLOR TO PATTERN 

80F1 


CNGCTP: 



80F1 

010880 

LD 

BC, 

COLORB 

80F4 

111080 

し D 

DE, 

CPATRN 

80F7 

3E08 

LD 

A, 

8 

80F9 


CGCTP1 : 



80F9 

08 

EX 

AF, 

AF f 

80FA 

0A 

LD 

A, 

(BC) 

80FB 

6F 

LD 

L, 

A 

80FC 

2600 

LD 

H, 

0 

80FE 

19 

ADD 

HL, 

DE 

80FF 

7E 

LD 

A, 

(HL) 

8100 

02 

LD 

(BC), A 

8101 

03 

INC 

BC 


8102 

08 

EX 

AF f 

AF f 

8103 

3D 

DEC 

A 


8104 

20F3 

JR 

NZ, 

CGCTP1 

8106 

C9 

RET 

n a 




i - uu i r u i i i 

8107 


OUTPTN: 



8107 

0E04 

し D 

c, 

4 

8109 


OTPTN1 : 



8109 

210880 

LD 

HL, 

COLORB 

810C 

1E02 

LD 

E, 

2 

810E 


OTPTN2: 



810E 

0604 

し D 

B, 

4 

8110 


OTPTN3: 



8110 

CB0G 

RLC 

(HL) 

8112 

IF 

RRA 



8113 

CB06 

RLC 

(HL) 

8115 

IF 

RRA 



8116 

23 

INC 

HL 


8117 

10F7 

DJNZ 

OTPTN3 

8119 

CD3681 

CALL 

LPTBYT 

811C 

ID 

DEC 

E 


81ID 

20EF 

JR 

NZ f 

OTPTN2 

81IF 

0D 

DEC 

C 


8120 

20E7 

JR 

NZ f 

OTPTN1 

8122 

C9 

RET 





••==== gvram 

PEEK ROUTINE 

8123 


GPEEKR : 



8123 

F3 

DI 



8124 

ED79 

OUT 

(C) 

, A 

8126 

DD7E00 

LD 

A, 

(IX) 

8129 

D35F 

OUT 

(5FH), A 

812B 

FB 

El 



812C 

C9 

RET 
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812D 


GPEEKE: 


;==== LPT OUT SUBROUTINES 


; - LPT OUT A STRING 


812D 


LPTSTR: 


812D 

7E 

LD 

A f CHL) 

812E 

B7 

OR 

A 

812F 

C8 

RET 

Z 

8130 

CD3G81 

CALL 

LPTBYT 

8133 

23 

INC 

HL 

8134 

18F7 

JR 

LPTSTR 



； - LPT OUT A BYTE 

8136 


LPTBYT: 


8136 

F5 

PUSH 

AF 

8137 


し PTBT1: 


8137 

DB40 

IN 

A, C40H) 

8139 

0F 

RRCA 


813A 

38FB 

JR 

C, LPTBT1 

813C 

FI 

POP 

AF 

813D 

D310 

OUT 

(10H), A 

813F 

F5 

PUSH 

AF 

8140 

F3 

DI 


8141 

3AC1E6 

し D 

A, (PORT4 

8144 

E6FE 

AND 

0FEH 

8146 

D340 

OUT 

(40H), A 

8148 

F601 

OR 

1 

814A 

D340 

OUT 

C40H) , A 

814C 

FB 

El 


814D 

FI 

POP 

AF 

814E 

C9 

RET 


814F 


END 
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付 1-9 N-BASIC で1,200 bps を 


PC-TechKNOW 8800mkII 
« 1200 bps FOR N-BASIC » 





ORG 

0F2C5H 

0BFD 


INITRD:EQU 

0BFDH 

0C50 


INITWR:EQU 

0C50H 

3BDF 


SYNERRiEQU 

3BDFH 

EA66 


COPY: 

EQU 

0EA66H 

F1B6 


HOOKRD:EQU 

0F1B6H 

F1B9 


HOOKWR-.EQU 

0F1B9H 

F2C5 


CMD : 



F2C5 

7E 


ID 

A, CHL) 

F2C6 

D642 


SUB 

• B f 

F2C8 

200A 


JR 

NZ. NOTB 

F2CA 

3EC9 


LD 

A, 0C9H 

F2CC 


SET 〇 P: 



F2CC 

32B6F1 


LD 

(HOOKRD) , A 

F2CF 

32B9F1 


LD 

(HOOKWR) s A 

F2D2 

D7 


RST 

10H 

F2D3 

C9 


RET 


F2D4 


NOTB: 



F2D4 

3C 


INC 

A 

F2D5 

C2DF3B 


JP 

NZ f SYNERR 

F2D8 

E5 


PUSH 

HI 

F2D9 

21EAF2 


し D 

H し ， READST 

F2DC 

22B7F1 


LD 

(HOOKRD+l),H し 

F2DF 

21F5F2 


LD 

HI,WRITST 

F2E2 

22BAF1 


LD 

(HOOKWR+1),HL 

F2E5 

3EC3 


し D 

A,0C3H 

F2E7 

El 


POP 

HI 

F2E8 

18E2 


JR 

SETOP 

F2EA 


READST: 



F2EA 

FI 


POP 

AF 

F2EB 

3A66EA 


LD 

A, (COPY) 

F2EE 

E60F 


AND 

0FH 

F2F0 

FG18 


OR 

18H 

F2F2 

C3FD0B 


JP 

INITRD 

F2F5 


WRITST: 



F2F5 

FI 


POP 

AF 

F2FG 

3A66EA 


LD 

A, (COPY) 

F2F9 

E60F 


AND 

0FH 

F2FB 

F61C 


OR 

1CH 

F2FD 

C3500C 


JP 

INITWR 

F300 



END 



FROM CMD 9 S HOOK 


CODE OF f RET S 


CODE OF p JP S 


1200 bps MODE 


1200 bps MODE 
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付 MO 高速画面クリア 


BF00 

BF00 

BF03 

BF04 

BF07 

BF09 

BF0A 

BF0A 

BF0D 

BF0F 

BF11 

BF11 

BF13 

BF13 

BF14 

BF15 

BF16 

BF17 

BF18 

BF19 

BF1A 

BF1B 

BF1C 

BF1D 

BF1E 

BF1F 

BF20 

BF21 

BF22 

BF23 

BF25 

BF26 

BF28 

BF29 

BF2A 

BF2C 

BF2E 

BF30 

BF31 

BF32 


PC-TechKnow 8800mkII 
« HIGH SPEED CLS 2 » 

re 1o c ateb 1 e 

ORG 0BF00H 


HSCLS: 


210000 

LD 

HI, 0 

39 

ADD 

HL, SP 

1 10000 

ID 

DE f 0 

0E5C 

ID 

C, 5CH 

F3 

DI 

HSCLS0: 


3180FE 

ID 

SP, 0FE80H 

3E02 

LD 

A f 2 

ED79 

OUT 

HSCLS1 : 

(C) • A 

06FA 

LD 

HSC し S2: 

B, 0FAH 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

D5 

PUSH 

DE 

10EE 

DJNZ 

HSCLS2 

3D 

DEC 

A 

20E9 

JR 

NZ, HSCLS1 

0C 

INC 

C 

79 

LD 

A, C 

FE5F 

CP 

5FH 

38DC 

JR 

C f HSCLS0 

D35F 

OUT 

(5FH) , A 

F9 

LD 

SP, HI 

FB 

El 


C9 

RE 丁 



;SAVE SP INTO HL 

;END OF GVRAM ADRS 
;SELECT GVRAM 

;CLEAR 32bytes 


;NEXT GVRAM 

;SELECT MAIN RAM 
;RESTORE SP 
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付 1-11 漢字フォント読み出しサブルーチン 


F260 

F260 

F261 

F262 

F263 

F264 

F265 

F266 

F268 

F2GA 

F26D 

F26F 

F271 

F272 


RKFSUB: 


LD 

A, (HL) 


INC 

HI 


LD 

H, (HL) 


し D 

し ， A 


EX 

DI 

DE, HL 

;DE <- JIS CODE 

LD 

A t 0FEH 


OUT 

(71H), A 

;SELECT ROM3 

CALL 

KANJI2 

;READ KANJI DATA 

LD 

A, 0FFH 


OUT 

El 

(71H), A 

;SELECT N88-ROM 

RET 


;RETURN TO BASIC 


866A 

866A 

866B 

86GE 

8GGF 

8672 

8673 

8674 

8675 

8676 

8677 

8678 

8679 


P 〇し L: 

NOP 

CALL EVAL 
PUSH HL 
CALL CSFRFA 
LD A, (HL) 
PUSH AF 
INC H し 
LD E, (H し） 
INC HL 
LD D,(HL) 
PUSH DE 
OUT (0EBH),A 


;TO TERMINATE MESSAGES 
;TEXT POINTER 

；LENGTH 

;DE=STRING ADRS 
; OFF KANJI ROM 


; PC-TechKnow 8800mklI 
；« READ KANJI DATA » 
» 

; relocatab le 

ORG 0F260H 

7261 KANJI2:EQU 72G1H 


付 1-12 高速漢字 PUT 文 


PC-TechKnow 8800mkII 
« KANJI PUT ROUTINE » 


POLL ” STRING” 


ORG 0866AH 

11D3 EVA し ： EQU 11D3H ; EVALUATE FORMULA 

56C9 CSFRFA : EQU 56C9H ; CHECK AS IF STRING & FREE IT 

F027 SLPX : EQU 0F027H ; X OF し P (SCREEN COOD) 

F029 SLPY: EQU 0F029H ; Y OF LP (SCREEN COOD) 

F01E FOREC : EQU 0F01EH : FORE GROUND COLOR 




867B CDEB86 
867E E5 
867F DDE1 


CALC Y ホ 80+X+C000H 
CALL CALADR 
PUSH HL 
POP IX 


8681 
8681 El 


KPNXT: 


POP HL 


;STRING ADRS 


2 

7 

E 11 p 1 
F 7 6 F 7 

E3GFB3E3DE3B9 

7266EF3DC3DFC 


3 9 B 
DC E 
0D5DE53E 3653 
0CEC7F2525DD 
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30H 

D 

D f A 
KPUT3 

KANJI to ROM 


NC # KPUT2 
CODE to ROM 


JR 

； —— CONV. 

ADD 

AND 

ID 

LD 

RRCA 

AND 

OR 

LD 

JR 

； - CONV. 

KPUT2: 


；HIGH BYTE 
;KANJI OR CODE? 

；KANJI 

ADRS 

； H+H 


ADRS 


E61F 

AND 

1FH 

87 

ADD 

A, A 

57 

ID 

D，A 

7D 

し D 

A, L 

E660 

AND 

60H 

87 

ADD 

A, A 

B2 

OR 

D 

57 

LD 

D, A 


KPUT1 : 

EX DE,HL 
LD A, H 
CP 30H 


7B 

LD 

A, E 

D3E8 

OUT 

C0E8H),A 

7A 

LD 

A，D 

D3E9 

OUT 

(0E9H),A 

13 

INC 

DE 


8699 
8699 EB 
8G9A 7C 
869B FE30 

8690 300C 

869F 87 
8GA0 EG0E 
8GA2 57 
86A3 7D 
8GA4 0F 
86A5 E630 
86A7 B2 
8GA8 57 
86A9 180A 


8687 

8688 

8689 
868A 
868B 
868D 
868E 
868F 

8690 

8692 

8693 

8694 

8695 


KPEND 


86BF 

0610 

LD 

86C1 

DDE5 

PUSH 

86C3 

El 

POP 

86C4 


KPUT5: 

86C4 

C5 

PUSH 


86B5 
86B5 7D 
86B6 87 
86B7 87 
86B8 87 
86B9 87 
86BA 5F 
86BB 7A 
86BC CE00 
86BE 57 


KPUT3: 

LD 

ADD 

ADD 

ADD 

ADD 

LD 

LD 

ADC 

ID 


DEC A 
DEC A 
PUSH AF 
LD A,(HL) 

AND 7FH 
LD D, A 
INC HL 
LD A, (H し） 

AND 7FH 
LD E, A 
INC HL 

PUSH HI ; STRING ADRS 

JR KPUT1 


8682 FI 

8683 FE02 
8685 3810 


- PUT ON VRAM 


8697 


KPEND: 


8697 

El 

POP HL 

；TEXT POINTER 

8698 

C9 

RET 



A H A L 
,E t t 
A 0 D A 


BBDEF0234 
AAAAABBBB 
66666666 G 
888888888 


5 6 8 9 B 

c c c c c 

6 6 6 6 6 
8 8 8 8 8 


D D 
3 3 


F 

7 

5 E 6 7 
F 7 E 5 


F 


2 

0 


3 E 6 F 3 5 8 
2 7 E 5 2 E 1 


F f 

A 2 c 


p 

OPR 
p c J 


G 

IX 

,XLc 
B I H B 


LAAAAAD0A 

aaaaaeaad 
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PUTDT1: 

OUT 

RRCA 

JR 

LD 

JR 


DE 

D, A 
C f 5CH 
A, (FOREC) 
B f 3 


(C) , A 

NC f PUTDT2 
(HL) , D 
PUTDT3 


(LPYx80+LPX¥8+C000H) 


x2 

x4 

x8 


PUTDT2: 

LD (HL), 0 

PUTDT3: 

INC C 
DJNZ PUTDT1 
OUT C05FH) 9 A 
El 

POP DE 
RET 


; - PUT A BYTE ON GVRAM 

PUTDAT: 


86E1 

Cl 

POP 

BC 

86E2 

10E0 

DJNZ 

• 

KPUT5 

86E4 

DD23 

參 

； —— TO NEXT CHARACTE 

INC IX 

86E6 

DD23 

INC 

IX 

86E8 

C 38186 

JP 

♦ 

KPNXT 

86EB 

86EB 

2A29F0 

-—— CALCULATE ADDRES 
CALADR: 

LD H し， （ SLPY) 

8GEE 

29 

ADD 

HL, HL 

8GEF 

29 

ADD 

H し ， HL 

86F0 

29 

ADD 

H し ， HL 

86F1 

44 

LD 

B f H 

86F2 

4D 

LD 

C, L 

86F3 

29 

ADD 

HL, HL 

86F4 

29 

ADD 

H し， H し 

86F5 

09 

ADD 

HL, BC 

86F6 

29 

ADD 

H し ， HL 

86F7 

44 

LD 

B, H 

86F8 

4D 

LD 

C, L 


870E 
870E D5 
870F 57 
8710 0E5C 
8712 3A1EF0 
8715 0603 

8717 F3 

8718 

8718 ED79 
871A 0F 
871B 3003 
871D 72 
871E 1802 
8720 

8720 3600 
8722 

8722 0C 

8723 10F3 
8725 D35F 

8727 FB 

8728 D1 

8729 C9 


86F9 

2A27F0 

LD 

HL, 

(S し PX) 



86FC 

CB3C 

SR し 

H 




86FE 

CB1D 

RR 

L 


;/2 


8700 

CB3C 

SRL 

H 




8702 

CB1D 

RR 

L 


;/4 


8704 

CB3C 

SRL 

H 




8706 

CB1D 

RR 

し 


;/8 


8708 

09 

ADD 

HL, 

BC 

;Yx80 

+ X¥8 

8709 

0100C0 

LD 

BC,0C000H 



870C 

09 

ADD 

HL, BC 

;HI = 

Yx80 

870D 

C9 

RET 






86CC 

D3EA 

OUT 

C0EAH) P A 

;START READING 

8GCE 

00 

NOP 



86CF 

00 

NOP 



86D0 

DBE9 

IN 

A f (0E9H) 


86D2 

CD0E87 

CALL 

PUTDAT 


86D5 

23 

INC 

HL 


86D6 

DBE8 

IN 

A, C0E8H) 


86D8 

CD0E87 

CALL 

PUTDAT 


8GDB 

D3EB 

OUT 

C0EBH) p A 

;END READING 

8GDD 

014F00 

LD 

BC, 79 


86E0 

09 

等 

» 

ADD 

HL, BC 



H 

s 

u D D D D I 
p L LLL D 


6 2 0 0 
13 4 8 

X X X X 


872A 


END 
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SE し RAM: 

F3 DI 

3AC2E6 LD A, CP0RT31) 

F602 OR 2 

D331 OUT (31H), A 

7E LD A, (HL) 

C3GCF1 JP 0F16CH 


F2EF 


END 


付 1-13 モニタでテキストラムを読む 


PC-TechKnow 8800mkI 
« READ TEXT RAM IN MONITOR » 


ORG 0F2C0H 
E6C2 PORT31:EQU 0E6C2H 


••======== MONITOR PATCHING ROUTINE ======== 

MONPAT: ; FROM 0E66CH 

POP AF 

LD HL, SELRAM ； CHANGE HERE TO RELOCATE 

ID DE, 0F1A0H 

LD BC f 12 

LDIR 

LD A, 3 

LD (0F1E1H), A ; BANK SWITCH 

LD A, ’H ， 

LD (0F1CEH), A 

XOR A 

ID (0F1CFH), A 

し D (0F1F4H), A 

LD (0F1DEH), A 

JP 6043H 


F2C0 
F2C0 FI 
F2C1 21E3F2 
F2C4 11A0F1 
F2C7 010C00 
F2CA EDB0 
F2CC 3E03 
F2CE 32E1F1 
F2D1 3E48 
F2D3 32CEF1 
F2D6 AF 
F2D7 32CFF1 
F2DA 32F4F1 
F2DD 32DEF1 
F2E0 C 34360 


3 3 4 7 9 B c 
E E E E E E E 
2 2 2 2 2 2 2 
F F F F F F F 
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付- 2 CP / M のファイル 構造 


PC-8801mkII では第 1 章で述べたように汎用 0S (基本ソフト）として CP/M が使用でき 
ます。ここでは PC-8801mkU 用にカスタマイズされた CP/M として NEC の CP/M Ver2.2 の 
ファイルとディレクトリの構造を述べます。 CP/M と BASIC との間でファイルの転送など 
を行なうときに役に立っと思います。 

1 ディスクマップ 

1-1 サポートしているディスク 

NEC の CP/M Ver2.2 (CBIOS Ver3.0) では 5 種類のディスクドライブを使用できます。 

1. インテリジェント5インチディスクドライブ（両面/片面） 

2. DMA 8インチディスクドライブ （ PC -8881/82) 

3. DMA 5インチディスクドライブ 

4 . ハードディスクドライブ （ PC -98 H 31/32/33/34) 

5 . RAM ディスクドライブ （128 K ボード1 or 2 or 3) 

このうちよく使われるいくつかのものについてのディスク マッ プを述べていきます。また、 
使われている明語の意味は次のとおりです。 

ディレクトリエントリ 

そのディスクに収納できるディレクトリの数です。ディレクトリが一杯になるとディスク 
にまだ空き領域があってもそれ以上ファイルを作ることができなくなります。 

ブロック 

C'P/M が実際にファイルを扱うときの単位です。 BASIC のクラスタにほぼ相尚します。 

1ブロックより小さなファイルをつくることはできません。ディスクはブロックによって論 
理的に分割され、ディレクトリの最初を〇として順にブロック番号が付けられています。 

レコ ー ド 

CP/M がディスクとやりとりする論理的な最小単位で 128 バイトです。 （BASIC では256バ 
イト） 


トラック 

ここでも両面ディスクの場合、問題になるのがトラックです。物理的フオーマットでは1 
つのシリンダに表裏の2つのトラックがあると考えます。論理的フ オー マットではもともと 
両面とぃぅ考え方がなく、物理的に表裏にあるトラックを 一 続きのトラックだと考えます。 
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1 - 2 5 — 2 D フォーマット ディスク（内蔵ドライブ) 

物理的フォーマット 

256 バイト/セクタ 

16 セクタ/トラック 
80 トラック/ディスク 
論理的 フ ォー マット 

64 セクタ/トラック（シリンダ） 

304K バイト/ディスク 

128 ディレクトリエントリ 
2システムトラック（シリンダ） 

2 K バイト/ブロック 

ディスクマップ 


トラック 

サーフェス 

セクタ 

内 容 

mm 

0 

1 

IPL 

0 

0 

2,3 

IPL の続き 

0 

0 

4〜16 

BIOS 

0 j 

1 

1〜16 

BIOS 

1 : 

0，1 

1〜16 

CCP&BDOS 

2 

0 

1 ~ 16 

デイレクトリ（ブロック# 〇， #1) 

2 

1 

1〜16 

ユーザ 領域 




i (ブロック# 2 〜 #151) 

39 

0，1 

1〜16 

ユーザ 領域 


1-3 5 - 1 D フォーマットディスク ( PC -8031/32) 

物理的 フォーマット 

256 バイト/セクタ 
16 セクタ/トラック 
40 トラック/ディスク 
論理的 フォーマット 

32 セクタ/トラック 
152K バイト/ディスク 
64 デイレクトリエントリ 
2システムトラック 
1 K バイト/ブロック 
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デイスクマップ 


トラック 

サーフェス 

セクタ 

内 容 

0 

0 

1 

IPL 



2〜16 

CCP&BDOS 

1 


卜 16 

CCP&BDOS 

2 


1~8 

ディレクトリ（ブロック#0, #1) 

2 


9〜16 

ユー ザ領域 




1 (ブロック#2〜 #131) 

39 


1〜16 

ユーザ 領域 


BIOS はファイルとして存在します0 


1-4 DMA 8 インチ片面単密128バイト/セクタ ( PC -8881/82) 

これはすべての CP / M に共通なフォーマットです。 

物理的 フ ォー マット 

128バイト/セクタ 
26セクタ/トラック 
77トラック/ディスク 

論理的 フォーマット 

26セクタ/トラック 

243 K バイト/ディスク 
64ディレクトリエントリ 
2システムトラック 
1 K バイト/ブロック 

ディスクマップ 


トラック 

サーフェス 

セクタ 

内 容 

0,1 


卜 26 

未使用 

2 

0 

卜 8 

ディレクトリ（ブロック#0, #1) 

2 

mm 

9〜26 

ユーザ 領域 


\ 


1 (ブロック#2〜 #242) 

76 

mm 

卜 26 

ユーザ 領域 


システムを入れることはできません 
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1-5 DMA 8 インチ両面倍密256バイト/セクタ （ PC -8881/82) 

物理的フォーマット 

256バイト/セクタ 

26セクタ/トラック 
154トラック/ディスク 

論理的 フォーマット 

104セクタ/トラック（シリンダ） 

972 K バイト/デイスク 

128デイレクトリエントり 
2システムトラック（シリンダ） 

4 K バイト/ブロック 


デイスクマップ 


トラック 

サーフェス 

セクタ 

内 容 


0 

1〜26 

未使用 


1 

1〜26 

CCP&BDOS 

1 


1 

IPL 

1 


2,3 

IPL の続き 

1 


4〜26 ! 

BIOS 


1 

1〜26 

BIOS 

2 

■■ 

1〜16 

デイレクトリ（ブロック#〇) 

2 


17〜26 

ユーザ領域 


1 

i 

i (ブロック#1〜#242) 

76 


1〜26 

ユーザ領域 


1-5 RAM ディスクドライブ （ PC -8801-02 N ) 

論理的フ ォー マット 

64セクタ/トラック 

128 K バイト/ディスク （ 1枚あたり） 

64デイレクトリエントリ 
0システ•ムトラック 
2 K バイト/ブロック 

システムを人れることはできません。 
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2 ディレクトリの構造 

CP / M でのファイル管理はすべてディレクトリによって行なわれ、 BASIC のような FAT 
は使われません。したがって、 BASIC では FAT が持っているような情報もディレクトリが 
管理しています。一つのディレクトリは次のように32バイトで構成されます。 



9〜11 
12 

13-14 

15 

16〜31 


_内- 一容- _ 

ユーザ番号（〇〇〜 OF ) ERASE されたファイルでは E 5 H が入る 
ファイル名（プライマリネーム） 

ファイル名（イクステンション） COM , ASM ， PRN など 
ロジカルイクステント（続番） 

通常は0 

総レコード数そのデイレクトリが管理しているレコ ー ド数 （0 〜 80 H ) 
ディスクアロケーションマップ（使用しているブロック番号の並び） 


ファイル名の「イクステンション」には通常 7 FH 以下のコードが人っていますが、リー 
ドオンリ ー やシステムファイルに指定されると最上位ビットが立ちます。 

CP / M には FAT がありませんので一つのディレクトリで管理できる領域には限りがあり 
ます。 「ディ スクアロケーションマップ（ブロック番号の並び）」は16バイトしかありません。 
また、「総レコード数」には 80 H までの値しか入りませんからここにも制限があります。こ 
れらを超えたらどうなるのかというと、次のようになります。 

① 「総レコード数」が128を越えたときには「ロジカルイクステント（続番）」を一つ増や 
し、「総レコード数」を〇にします。 

② ディスクアロケーションマップが一杯になった時は同じファイル名のディレクトリをも 
う一つ作って、そのディレクトリの「ロジカルイクステント」にはいままでのディレク 
トリのロジカルイクステントより一つ大きな値を書き込みます。新しいディレクトリの 
「総レコ ー ド数」は0になります。 


ですから、大きなファイルを作ると、同じファイル名のデイレクトリかたくさんでき々し 
とになります。 
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付録" ■ 3 コントロールコード ー 覧表 


(1)BASIC 入力時 


16 進 

10 進 

対応するキ ー 

N-BASIC 

Ngg— BASIC 

01 

1 

C T R し 一 A 


ヘルプキーと同じ 

()2 

2 

CTRL-B 

1 つ前のヮードへ戻る 

(N —BASIC と同じ） 


3 

C T R L — C 

実行の中断 （ STOP の 

実行の中断 

時） 

0 4 

4 

CTRL-D 


カーソル位®から 1 ワードを 

削除 

0 5 

5 

C T R L-E 

力ーソル位置から後を消す 

(N —BASIC と同じ） 

()6 

6 

C T R L - F 


1 つ先のワードへ進む 

0 7 

7 

C T R L-G 

スピーカを鳴らす 

(N —BASIC と间じ） 

0 8 

8 

C T R L-H 

力ーソル位置の左側の文字を削 

除する 

(N-BASIC と同じ） 

0 9 

9 

C T R L- I 

水平タブ （ 8 文字毎） 

(N —BASIC と同じ） 

0 A 

10 

C T R L - J 

行を 2 つに分ける 

ラインフィード、インサート 

モードで 2 行に分割 

OB 

11 

C T R L-K 

ホ ー ムポジション 

(N —BASIC と同じ） 

0 C 

12 

C T R し- L 

テキスト画面クリア 

(N —BASIC と同じ） 

0 D 

13 

C T R L-M 

キャリッジリターン 

(N —BASIC と同じ） 

0 E 

14 

C T R L - N 

1 つ先のワードへ進む 


OF 

15 

C T R L - 0 

ESC の後に押すことによ 

画面の表示を無効にする 

リ N« 8 _BASIC と同じ働きを行 
なう 

12 

18 

C T R L - R 

力ーソル位置から右側を 1 文字 
分右へずらす。 

インサートモードにする。 

13 

19 

C T R L-S 


実行を一時停止する 

15 

21 

C 丁 R L-U 


1 行キャンセル 

18 

2 4 

C T R L - X 


カーソルを行の最後に移す 

IB 

2 7 

ESC 

実行を一時停止する 


IB 

2 8 

B 

カーソルを右へ移動 

(N —BASIC と同じ） 

IO 


< — 

a 左" 

(N —BASIC と同じ） 

m 


[U 

" 上" 

(N-BASIC と同じ） 



in 

II 下 II 

(N-BASIC と同じ） 
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⑵通信用 （ ASCII) 


16 進 


10 進 


シンボル 




0 4 



SH 

SX 

EX 

ET 

EQ 

AK 

BL 

BS 

HT 

LF 

HM 

CL 

CR 

SO 







DE 

D1 

D2 

D3 

D4 

NK 

SN 

EB 

CN 

EM 

SB 

EC 




ボルの 意味 


null 

Start of Heading (へッディング開始） 

Start of Text (テキスト開始） 

End of Text (テキスト終了） 

End of Transmission (伝送終了） 

Enquiry (問合わせ） 

Acknowledge (fi • 定応答） 

Bell (ベル、ブザー） 

Back Space ( 後退） 

Horizontal Tabulation (水平タブ) 

Line Feed ( 改行） 

Home(VT) Vertical Tabulation ( 垂直タフ、） 
Clear(FF) Form Feed (改頁） 

Carriage Return ( 復帰 ) 

Sift-out (シフトアウト） 

Sift-in (シフトイン） 

Data Link Escape (伝送 制御 抗張) 

Device Control 1 (装置制御 1) 

Device Control (装置制御 2) 

Device Control3 (装置制御 3) 

Device Control4 (装置制御 4) 

Negative Acknowledge ( 否定応答） 

Synchronous idle (同期信号) 

End of Transmission Block (伝送ブロ ック終了） 
Cancel (取消し) 

End of Medium (媒体終端） 

Substitute (文字置換） 

Escape ( 披張） 

(FS)File Separator (フ ァイル分離） 

(GS) Group Separator ( グルー プ分離） 
(RS)Record Separator (レコー ド分離） 

(US)Unit Separator (ユニッ ト 分離） 
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付録 - 4 EBCD I C コード 

EBCDIC (カナ 入り） コー ド表 
上位4ビット—* 



o 

D 

B 

D 

4 

5 

6 

■ 

o 

B 

D 


D 

D 

B 

■9 

■■ 

NU し 

D し E 

DS 


SP 

& 

■ 











SOH 


SOS 


■ 











■ 


STX 

DC2 

FS 

SYN 


D 


■ 









3 

ETX 

TM 



■ 

D 


■ 









■■ 

PF 

RES 

BYP 

PN 


B 


■ 









m 

HT 

N し 

し F 

RS 


■ 


■ 








B 

wm 

し C 

BS 

ETB 

UC 

ヲ 



■ 








■ 

7 

D し 

i し 

ESC 

EOT 

ァ 



■ 





G 


X 

7 

8 

GE 

CAN 



ィ 

■ 


■ 








■ 

9 j 

R し F 

EM 



0 

■ 


■ 








■ 

A 

SMM 

CC 

SM 


r 

L 

n 


■ 


m 




■ 



■■ 

VT 

m 

CU2 

CU3 

• 

D 












FF 

1 FS 

■ 

DC4 

< 

D 




m 






■ 


CR 

1 GS 

ENR 

NAK 

D 

n 






■ 





mm 

SO 

IRS 

ACK 

■ 








■ 




B 


m 

1 US 

BE し 

SUB 

■ 






m 

B 


m 
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付録- 5 


演算順位表 


演算順位表と誘導関数表 

演算順位表 



演 算 


の 


種 類 


) で囲まれたもの 


関数 


指数(べき乗)…… A へ 2( A 2 ) 
負号（一） 


MOD 


13 

14 

15 


条件判定 (<• >,=など) 

NOT 

AND 

OR 

XOR 

IMP 

EQV 


注）演算の順位が同じ場合，左から右へ順に行なわれます， 


誘導関数表 



目的とする関数 


セカント 


コセカント 


コタンジェント 


ー クサイン 


アークコサ イン 


アークセカント 


アーク コセカント 


アークコタン 


パーボリック•サイン 


ハイパーボリック•コサイン 


ハイパーボリック•タンジェント 


パーボリック•セカント 


\ ィパーボリック•コセカント 


、イパーボリック•コタンジェント 


- ボリック•アークサイン 


、イパーボリック•アークコサイン 


組み込み関数からの誘導式 


SEC(X) = 1/C0S(X) 


CSC(X) = 1/SIN(X) 


C0T(X) = 1/TAN(X) 


ARCSIN(X) = ATN(X/SQR(-X*X + 1)) 


ARCCOS(X) = -ATN(X/SQR ( — X 



.5708 






ARCSEC(X) = ATN(SQR(X 氺 X - 1)) + (SGN(X)-1 * 1.5708 


ARCCSC(X)=ATN(1/SQR(X*X-1)) + (SGN(N(X)-1)*1.5708 


ARCCOT(X) = 一 ATN(N) + 1.5708 


NH(X) = (EXP(X) - EXP (— X))/2 


COSH(X) = (EXP(X)4 - EXP(-X))/2 


TANH(X) = -EXP(-X ) バ EXP(X) + EXP(-X)) 


SECH(X) =2/(EXP(X) + EXP(-X)) 


CSCH(X)=2 バ EXP(X) - EXP (- X)) 


COTH(X)= EXP (- X ) バ EXP(X) - EXP (- X))*2 + 


ARCSINH(X)= LOG(X+SQR(X*X + l)) 


ARCCOSH(X)= LOG(X+SQR(X*X — 1)) 


、イパ — ボリック•アークタンジェント ARCTANH(X) = LOG((1 +X)/(1 一 X))/2 



パーボリック•アークセカント 


\ ィパーボリック•アークコセカント 


ARCSECH(X) = LOG((SQR(-X* X + 1)+1) + 1)/X) 


ARCCSCH(X) = LOG((SGN(X)*SQR(X*X + 1)+1)/X) 


ハイパーボリック•アークコタンジェント ARCCOTH(X) = LOG((X + 1)/(XH))/2 
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4 :ii, 6 uszG >4 VJ 4 l" 7 'y 了 Iw)t 


J ^ 0 


& 


& 


ns" 


谷 


itit 


#甘枋林.甘 


+ #甘产# 


林林甘.杜 


**# 甘林：^ 林 


Y -<##^^ 林 


**-< 甘 ^ It 


甘社 


it 林 1+ 


> > > > 


甘林甘甘林杜甘 


燕 




室 


)4+} 窆 3 瓣咨 3)4+}^i t EE- HJ 


辞 $3 rr)4+} 印 ^ o''5T'ed 

一 OS @nsL t / 一 os)4'4^y 

燁蔵外^ 45 T ' 嫌^ 1 




鎵錡 35 n4?-t(+, —)r^og か 


輝 ss 寐 n 茶 ^( ナ丨 ) 吩〇一 t か 


略 n> 誤 ^^，*: d.w_5 か 
鋒 pfSR 3 nJoit か 


* *( V ¥¥ S 「 JSJ 3 藤 # grve か 


33«rn ノ " T 冈空 OTEE-d 




rA§ 


PRINT USING "F • 一〔こ 
F.1(a 〕 


;s abcde 


35 H CW50 "F\2:cco ¢0 〕 " ； " ab c de " 
F\ 2: 〔 abed 〕 

PRINT USING "F\ 3: § " 「 abede" 

F. 3 :〔ab c de 〕 

T3 力 IMT as IMG "F\ 仁：〔鈦 ttntt 〕 " ； 123 • 456 
F. 4: C 123 〕 


SSH awso 

F. 5: C 1 23 • 5 〕 

SSH S50 -+§«• s 

F. 6:( 十一 23 • 5 〕 


123 • 456 


123 • 456 


S5H CSI2G "F\ 7: Cl? 坊 《 •»+ 〕 " ； 123 • 仁 56 , —123• 公 56 
F\ 7: 〔一 23 • 5+ 〕 F\ 7: Cl 23 • 5 -〕 


PKINTCSING "F. 8:〔§«•«1 
F. 8: 〔一 23 • 5 〕 F. 8: Cl 23 • 5 —〕 


; 123 • 456,—123. 456 


で力 IMT USI 2 G " F \ 9 •• 〔关关 123•仁56 
F . CD : 〔翁关123 • 5〕 

1 P 33 IMTGSI 2 G " F \ 10: (¥吡鈦 《«•«〕"；123 •仁 56 

F . 10:〔 ¥123. 5〕 

S 5 H GW 50 " F \ 一一:〔关关 ¥功«. «〕 " ；123•仁56 

F \ 一一:〔关來 1103. 5〕 

で WIMTCSI 2 G " F \ 12: c ，:一";123仁 • 56 
F . 12:〔 r 235〕 


PRINT USING "F\ 13: s§> 
F.13: 〔 12E+02 〕 


〕丨 ； 1234 • 56 


SSH cwso "F\ 1^ : 〔》 «»«1, 123,123 
F\ 14: 〔 123, 123 〕 
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FIELD overflow 

Internal error 

Bad file number 

File not found 

File already open 

Input past end 

Bad file name 

Direct statement in file 

Sequential after PUT 

Sequential I/O only 

File not OPEN 

File write protected 

Disk offline 

Disk not mounted 

Disk I/O error 

File already exists 

9 


01 NEXT without FOR 
02 Syntax error 
03 RETURN without GOSUB 
04 Out of DATA 
05 Illegal function call 
06 Overflow 
07 Out of memory 
08 Undefined line number 
09 Sub script out of range 
0A Duplicate Definition 
0B Division by zero 
0C Illegal direct 
0D Type mismatch 
0E Out of string space 
0F String too long 

10 String formula too complex 

11 Can f t c on t inue 

12 Undefined user function 

13 No RESUME 

14 RESUME without error 

15 Unprintable error 

16 Missing operand 

17 Line buffer overflow 

18 ? 

19 ? 

1A FOR Without NEXT 
IB Tape read ERROR 
1C ? 

ID WHILE without WEND 
IE WEND without WHILE 
IF duplicate label 

20 undefined label 

21 Feature not available 


付- 7 エラーメッセージー覧表 

DEC I HEX -ERROR MESSAGE- 


23456789 ABCDEF 012 
33333333333333444 


01234567890123456 

55555555556666666 


2 3 4 5 6 


89012345678901234567890123 

111111111122222222223333 
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67 

43 

Disk 

already mounted 

68 

44 

D i sk 

full 

69 

45 

Bad 

allocation table 

70 

46 

Bad 

drive number 

71 

47 

Bad 

track/sec to r 

72 

48 

Deleted record 

73 

49 

Rena 

me across disks 


n 88 -rom-jbasic, n 88 -disk-basic エラーメ ッセージ対 if ； 表 


AO 

54 

rile already open 

BN 

52 

Bad file number 

BO 

23 

Line buffer overilow 

BS 

9 

Sub script out of range 

CF 

60 

File not OPEN 

CN 

17 

Can f t c on t inue 

DD 

10 

Duplicate Deiinition 

DS 

57 

Direct statement in iile 

DU 

31 

duplicate label 

EF 

55 

Input past end 

FC 

5 

Illegal function call 

FF 

53 

rile no t found 

FN 

26 

FOR Without NEXT 

FO 

50 

FIELD overflow 

ID 

12 

Illegal direct 

IE 

51 

In terna1 error 

IS 

15 

String too long 

MO 

22 

Miss ing ope rand 

NA 

33 

Feature not available 

NF 

1 

NEXT without FOR 

NM 

56 

Bad file name 

NR 

19 

No RESUME 

OD 

4 

Out of DATA 

OM 

7 

Out of memory 

OS 

14 

Out o f string space 

OV 

6 

Over flow 

RG 

3 

RETURN without GOSUB 

RW 

20 

RESUME without error 

SN 

2 

Syntax error 

SP 

58 

Sequential after PUT 

SQ 

59 

Sequential I/O only 

ST 

16 

String formula too comp1 

TM 

13 

Type mismatch 

TP 

27 

Tape read ERROR 

UE 

21 

Unprin tab 1e error 

UF 

18 

Unde fined user function 

UL 

8 

Undeiined line number 

UN 

32 

unde fined label 

WE 

30 

WEND without WHILE 

WH 

29 

WHILE without WEND 

/0 

11 

Div is ion by zero 
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付- 8 漢字キャラクタ対応表 

使用プリンタ： NM 9400 


= ■• D 

= S? 
=! I 
=SS 


0 

〇 

▼ 


• S 

1 - q 


彐=「； 

= r E 

V =「0 

=「Y 
<= r c 
=「m 
卞 =「w 


ゾ =! S 
\= !@ 
(=!J 

《=!T 
±= ド 

••• = ! h 

£ = !r 
@=! ! 

※二「 （ 
= r 2 
e = r < 

=「F 

彐ゴ p 

=「Z 

»= r d 




》 

X 

% 

◎ 


!S 


!% 


!& 

!0 


仝 =!8 
II =!B 
C=!L 

r=!v 




7= 訪 7 

A=ilA 

K=«K 

u=??u 



=tf$ 

=«. 

8=«8 

B=i$B 

L=SL 

V=tfV 


i =«i 

s =^s 
=»} 

お =s) 

こ =S3 
そ =S = 
で =SG 
ぱ =SQ 
l ま =$ C 

ゆ =$e 
わ =So 
=Sy 

ゥ=%% 
ク =%/ 
ス =%9 
、、j = %C 
ネ =%M 
プ =%W 
メ =%a 
ル =%k 
力 =%u 
A=&! 
八 =&+ 

0=&5 
=&? 
6 =&I 


j =«j 

t =tf t 



Z) 


= r G 

= r Q 


V" 


お =S 本 

ご =$4 

ぞ =$> 
と =$H 
ひ =SR 
ぼ =$¥ 
ゆ =$ f 
ゐ =3 口 

=Sz 

ウ=%& 
グ =%0 
ズ =%: 
ツ =%D 
ノ =%N 

へ =%X 

モ =%b 
レ =%1 
ヶ =%v 
B=& r 

M=&, 

X=&6 

=8c@ 

x =&J 


半 =! j 

# = ! t 
◊ =! 〜 
->= 「氺 

= r 4 
C =「> 
=「H 
=「R 
Z= r ¥ 


々 =! 9 〆 = 
| = !C ••• = 
〕 =!M [= 

J =!W 『二 
==! a 半 = 

。 =!k 7 = 

& 二 ！ u * = 


♦ 


— r | 


□= 


r r 


= r 5 
D = r ? 


= r S 

丄=「〕 


= r 6 

U =「@ 

八 =「J 
=「T 


Tl= r y 
=«% 
=tf/ 
9 =tf9 
C=ttC 
M=«M 
W=«W 
a =tfa 

k =^k 

u =tfu 
あ =$ ! 
か =$ + 
さ =$5 
た =S? 
ど =$1 
び =$S 
ぽ=$〕 

よ =^g 

=S { 

エ=% 
ケ =%1 
セ =%; 

ジ =%E 

ハ =%0 

ベ =%Y 

ヤ =%c 
□ =%m 
=%w 

r=&« 

N=&- 
^=&7 
a =&A 
X=&K 


=«& 

O=«0 

: 

D=^D 
N=«N 
X=«X 
b =tfb 
1=^1 
v =tfv 

あ =$ r 
が =S, 
ざ： S6 
だ =$® 
な =$J 
ぴ =$T 

ま =$ 八 

よ =Sh 
を =S r 
=S ! 
エ =%( 
ゲ =%2 
ゼ =%< 
テ =%F 
パ =%P 
ぺ =%Z 
ヤ =%d 

ヮ =%n 
=%x 

A =&$ 

三 =&• 

Q =&8 
0=&B 
fi =&L 


v = r h 
A = r r 


=tf 9 

1=^1 

=«； 
E=»E 
0=«0 
Y=tfY 
c c 
m=tfm 


=«( 
2=^2 
= 4$< 

F=»F 
P=«P 
Z=i$Z 
d=^d 
n =tfn 


w=^w x x 


ぃ =$tt 

き =$- 
し =$7 
ち =$A 

ふ =$U 
み = S 一 
ら =3 i 
ん = $ s 
=$} 

才 =%) 
コ =%3 

ソ =%= 

デ =%G 

パ =%Q 
ホ =% C 
ユ =%e 

ワ=%〇 

=%y 
E=&% 
〇=&/ 
=&9 
y =&C 

v =&M 


O 


< 


@ = ! w 


n=「A 

V =「K 

=「u 


い =$$ 

ぎ =s. 

じ =$8 
ぢ二⑶ 
ぬ =SL 
ぶ =$V 
む =$= 

り =$ j 
=S t 

=s 〜 

オ=%本 

ゴ =%4 
ゾ =%> 

トニ ％ H 

ヒ =%R 

ボ =%¥ 

ュニ％ f 

- I^ = /oP 
=%Z 

Z — && 

n =&0 
=&： 
5 =&D 
ミ =&N 


>=!d 
°C=!n 
§ = ! x 
△ = 「 $ 


f=「i 

%0= r S 
=「} 
=tf) 
3=tf3 
=«= 
G=tfG 
Q=i?Q 
=i$ C 
e e 
o =^o 

y =^y 

ろ =s% 
< =$/ 
T=S9 

つ =sc 

ね：尜 M 
ぷ =$W 
め —S 3. 
る =Sk 
=Su 
ア=%! 

力=%+ 
サ=%5 

タニ ％? 

ド，二％ I 
ビ =%S 
ポ=%〕 



=「8 

= r B 


▽ =「= 
//=「j 

# = r t 

〇=「〜 

=详氺 

4=^4 

=«> 

H=»H 

R=1$R 



€= ! e 
¥ = !o 
☆ =!y 
▲ =「％ 


G 

Q 




二 =%q 
=% { 

H =&， 

P=&1 

=&； 
€ =&E 

o =&0 




f =itf 

P =^p 

z =tfz 

う =$& 
ぐ： $0 
ず =$ : 

つ =$D 
の =$N 
へ =$X 
も =$b 
れ =$1 
=$ v 
ア=%「 
ガ=%, 
ザ=%6 
ダ=%® 
ナ =%J 
ピ =%T 

マ=%八 


ヲ =%r 
=%: 
0 =& C 
Z =&2 
=&< 

c =&F 

兀 =&P 



! = ! 木 

ゾ =!4 
- =! > 
“ =!H 
<=!R 
+ =!¥ 
S=! f 

$ = !P 
★ = ! z 
▽ =「& 
= r 0 
G = r ： 
= r D 
㈡ = r N 

=「x 

= =「b 




b= r u 

=tfl 

+ 

5=«5 
=U? 
I I 
S=tfS 

g=^g 

q=^q 
=tf { 

え=$， 
け =$1 
せ = 忠 ; 

づ =$E 
は =S0 
X=$Y 
や =$c 

ろ =$m 
=$w 

イ=%» 
キ=%— 
シ=%7 

チニ ％ A 

二 =%K 

フ=%11 


ラ =%i 
ン =%s 
=%} 

I =&) 
T=&3 
=&= 
V =&G 
〇 =&Q 


j) = 「 v 
=«「 
= 饵， 
6=^6 
=tf@ 

J =tfJ 
T=«T 
=tf A 
h=«h 

r =^r 
! 

え =S ( 
げ=$2 
ぜ =$< 
て =SF 
ば =SP 
ぺ =$Z 
や =$d 
わ =$n 
=Sx 

イ=%$ 
ギ =%• 
ジ=%8 
ヂ =%B 
ヌ =%L 
ブ =%V 
= /〇二 

U =% j 

ヴ =%t 
=%〜 
K=& 氺 

T =&4 
=&> 
9 =&H 
a =&R 
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to =&X 


=&S 

=&〕 

=&g 

=&q 
=& { 


%=&V 

= &c— 

=& j 

=& t 

=&〜 
本 

4 
> 

H 


中 =&u 
=& 一 
=&i 
=&s 
=&} 


v =8cT 
=& A 
=&h 
=&r 
=&! 


» 

>K = 


3 = 

=， ） 



1 

P = 

,2 

C = 

3 

T = 

- 

♦ 

9 

Td = 

,< 



b = 

二 

E 


,F 

mm 

二 ， G 

■ 

= 

〇 

— 

,P 

a = 

=,Q 

6 = 

mm 

Y 

w = 

,Z 

M = 

=， C 

K = 

- 

c 

T = 

， d 

y = 

=, e 

中= 

- 

m 

b = 

ノ n 

3 = 

=' 0 

K )= 

: 


亜 =0 ! 哑 =0「 娃 =0 饵阿 =0 S 哀=0%愛=0&挨=0’始=0 ( 逢 =0) 癸=0本 
茜=0+稳=0,悪=0-握 =0. 渥=0/旭=00葦=01芦=02鰺=03梓=04 
圧=05斡=06扱=07宛=08姐=09虻=0:飴=0;絢=0<綾=0=鲇=0> 
或=0?粟 =0® 袷 =0 A 安 =0 B 庵 =0 C 按 =0 D 暗 =0 E 案 =0 F 闇 =0 G 鞍 =0 H 
杏=01 


以 =0 j 伊 =0 K 位 =0 L 依 =0 M 偉 =0 N 囲=00夷 =0 P 委 =0 Q 威 =0 R 尉 =0 S 
惟=0丁意 =0 U 慰 =0 V 易 =0 W 椅 =0 X 為 =0 Y 畏 =0 Z 異=0〔移=0¥維=0〕 
緯=0八胃=0-萎=0=衣 =0 a 謂 =0 b 違 =0 c 遺 =0 d 医 =0 e 井 =0 f 亥 =0 g 
域 =0 h 育=01郁 =0 j 磯 =0 k —=01荖 =0 m 溢 =0 n 逸=0〇稲 =0 p 茨 =0 q 

芋 =0 r _=0 s 允 =0 t 印 =0 u 咽 =0 v 員 =0 w 因 =0 x 姻 =0 y 引 =0 z 飲=0 { 

淫=0:胤 =0} 蔭=0〜院=1!陰=1「隠 = ltf 韻=1$吋=1% 


右 = 1&宇=1’烏=1(羽 =1) 迁 = 1木雨 = 1+卯 = 1,鶴 = 1-窺 =1. 丑=1/ 
碓=10臼=11渦=12嘘=13唄=14欝=15蔚=16饅=17姥=18厩=19 
浦=1:瓜=1;閏=1く噂=1=云=1> 運=1?雪 =1® 


荏 =1 A 餌 =1 B 數 =1 C 営 =1 D 嬰 =1 E 影 =1 F 映 =1 G 曳 =1 H 栄=11永 =1 J 
泳 =1 K 洩 =1 L 瑛 =1 M 盈 =1 N 穎=10頴 =1 P 英 =1 Q 衛 =1 R 詠 =1 S 銳 =1 T 
液 =1 U 疫 =1 V 益 =1 W 駅 =1 X 悦 =1 Y 謁 =1 Z 越=1〔閲=1¥桓=1〕厭=1八 
円=1—園=1=堰 =la 奄 =lb 宴 =lc 延 =ld 怨 =le 掩 =lf 援 =lg 沿 ：:: lh 
演 =li 炎 =lj 焰 =lk 煙=11燕 =lm 猿 =ln _=1〇艷 =1 P 苑 =lq 菌 = l r 
遠 = ls 鉛 = lt 篇 = lu 塩 =lv 


於 =1 W 汚 = lx 甥 = ly 凹 = lz 央=1 { 奧=1:往 =1) 応=1〜押=2!旺=2「 
横 =2 tf 欧 =2 S 殴=2% 王=2& 翁=2，襖=2(鶯 =2) g |=2 >K 黄=2+ 岡=2, 
沖=2-荻 =2. 億=2/屋=20憶=21臆=22桶=23牡=24乙=25俺=26 
卸=27恩=28温=29穩=2:音=2 ; 


下=2く化=2=仮=2> 何=2?伽 =2® 価 =2 A 佳 =2 B 加 =2 C 可 =2 D 嘉 =2 E 
夏 =2 F 嫁 =2 G 家 =2 H 寡=21科 =2 J 暇 =2 K 果 =2 L 架 =2 M 歌 =2 N 河=20 
火 =2 P 珂 =2 Q 禍 =2 R 禾 =2 S 稼 =2 T 箇 =2 U 花 =2 V 苛 =2 W 茄 =2 X 荷 =2 Y 
華 =2 Z 菓=2〔蝦=2¥課=2〕嘩 =2 a 貨=2—迦=2=過 =2 a 霞 =2 b 蚊 =2 c 
俄 =2 d 峨=2巳我 =2 f 牙 =2 g 画 =2 h 臥=21芽 =2 j 蛾 =2 k 賀=21雅 =2 m 
餓 =2 n 駕=2〇介 =2 p 会 =2 q 解 =2 r 回 =2 s 塊 =2 t 壊 =2 u 廻 =2 v 快 =2 w 
怪 =2 x 悔 =2 y 恢 =2 z 懐=2 { 戒=2 !拐 =2) 改=2〜魁=3 !晦=3「械=3« 
海 =3 S 灰=3%界=3&皆=3，絵=3(芥 =3) 蟹=3本開=3+階=3,貝 = 3- 
凱 =3. 劾=3/外=30咳=31害=32崖=33慨=34概=35涯=36碍=37 
蓋=38街=39該=3:鎧=3;骸=3く浬=3=馨=3> 蛙=3?垣=3@柿 =3 A 
螺 =3 B 钩 =3 C 劃 =3 D 魅 =3E 各 =3 F 廓 =3 G 拡 =3 H 摄:=31 格 =3 J 核 =3 K 
殼 =3 L 獲 =3 M 確 =3 N 穫=30覚 =3 P 角 = 3 Q 赫 =3 R 較 =3 S 郭 =3 T 閣 = 3 U 
隔 =3 V 革 =3 W 学 =3 X 岳 =3 Y 楽 =3 Z 額=3〔顎=3¥掛=3〕笠=3八樫= 3_ 
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橿 =3= 梶 =3 a 餓 =3 b 潟 =3 c 割 =3 d 喝 =3 e 恰 =3 f 括 =3 g 活 =3 h 渇 = 3 i 
滑 =3 j 葛 =3 k 掲=31轄 =3 m 且 =3 n 鰹=3〇叶 =3 p 嵇 =3 q 樺 =3 r 鞀 =3 s 
株 =3 t 兜 =3 u 竈 =3 v 蒲 =3 w 釜 =3 x 鎌 =3 y 嚙 =3 z 鳴=3 { 栢=3 :茅 =3} 
壹=3〜粥=4! メ！]=4 r 前=4« 瓦=4$ 乾=4% 侃=4& 冠=4，寒=4 ( 刊 =4) 
勘=4本勧=4+卷=4,喚=4- 堪 =4. 姦=4/完=40官=41寬=42干=43 
幹=44患=45感=46債=47憾=48換=49敢=4 :柑=4 ;桓=4< 棺=4= 
款=4> 歓=4?扞=4@漢 =4 A 澗 =4 B 灌 =4 C 環 =4 D 甘 =4 E 監 =4 F 看 =4 G 
竿 =4 H 管=41 簡 =4 J 緩 =4 K ffi =4 L 翰 =4 M 肝 =4 N 艦=40莞 =4 P 観 =4 Q 
諌 =4 R 貫 =4 S 還 =4 T 鑑 =4 U 間 =4 V 閑 =4 W 関 =4 X 陷 =4 Y 韓 =4 Z 館=4〔 
館=4¥丸=4〕含 =4 A 摩=4-靡=4=玩 =4 a 癌 =4 b 眼 =4 c 岩 =4 d 銳 =4 e 
廣 =4 f 雁 =4 g 頑 =4 h 顔 =4 i 願 =4 j 


企 =4 k 伎=41危 =4 m 喜 =4 n 器=4〇基 =4 p 奇 =4 q 嬉 =4 r 寄 =4 s 岐=4 t 
希 =4 u 幾 =4 v 忌 =4 w 揮 =4 x 机 =4 y 旗 =4 z 既=4 { 期=4 !棋 =4} 棄=4〜 
機=5!帰 =5 r 毅=5«気=5$汽=5% 幾=5& 祈=5，季=5 ( 稀 =5) 紀=5氺 
徽=5+規=5,記=5-貴 =5. 起=5/軌=50輝=51飢=52騎=53鬼= 54 
龜=55偽=56儀=57妓=58宜=59戯=5:技=5;擬=5< 欺=5=犠=5> 
疑=5?衹 =5® 義 =5 A 蟻 =5 B 誼 =5 C 議 =5 D 掬 =5 E 菊 =5 F 鞠 =5 G 吉 =5 H 
吃=51喫 =5 J 桔 =5 K 橘 =5 L 詰 =5 M 砧 =5 N 杵=50黍 =5 P 却 =5 Q 客 =5 R 
脚 =5 S 虐 =5 T 逆 =5 U 丘 =5 V 久 =5 W 仇 =5 X 休 =5 Y 及 =5 Z 吸=5〔宮=5¥ 
弓= 5〕急 =5 A 救=5—朽=5=求 =5 a 汲 =5 b 泣 =5 c 灸 =5 d 球 =5 e 究 =5 f 
窮 =5 g 笈 =5 h 級 =5 i 糾 =5 j 給 =5 k 旧= 51牛 = 5 m 去 =5 n 居= 5〇巨 = 5 p 
拒 =5 q 拠 =5 r 挙 =5 s 渠 =5 t 虛 =5 u 許 =5 v 距 =5 w 館 =5 x 漁 =5 y 撰 =5 z 
魚=5(亨=5!享 =5) 京=5〜供=6!侠 = S r 僑兇=6$競=6%共 
凶 = 6， 協 =6( 匡 =6) 卿 =6* 叫 =6+ 喬 = S , 境 =6 - 峡 =6. 強 =6/ 張 =60 

怯= 61恐=62恭=63挟=64教=65橋 = GS 況 = S 7 狂=68狭=69矯=6: 
胸 =6;脅=6く興=6=蕎=6> 郷=6?鏡=6@響 = SA 饗 = SB 驚 = SC 仰 =SD 

凝 =6 E 尭 =8 F 暁 =6 G 業 =6 H 局=61曲 = SJ 極 =6 K 玉 =6 L 桐 =6 M 轩 
僅= 6 〇勤 = SP 均 = SQ 巾 = SR 錦 =6 S 斤 = ST 欣 = SU 欽 = SV 琴 = SW 禁 =SX 
禽 = SY 筋 = SZ 緊=6〔芹 = S ¥ 菌=6〕衿 =6 A 襟=6-謹=6=近 = Sa 金 =Sb 
吟 = Sc 銀 =Sd 


九 = Se 俱 =6 f 句 = 6 g 区 = Sh 狗 = Si 玖 = Sj 矩 =6 k 苦=61躯 =6 m 駆 =Sn 
| g =6 o 駒 =Sp 具 =Sq 愚 =6 r 虡 =Ss 喰 =St 空 =Su 偶 =Sv 寓 =Sw 遇 =Sx 
隅 =6 y 串 = Sz 櫛 =S { 釧 = S 丨屑 = 6) 屈= 6〜掘=7 !窟=7「沓= 7#靴 =7 S 
害=7%窪=7&熊=7，限=7(籴 =7) 栗 =7* 繰=7+桑=7,鍬=7-勲 =7. 
君 =7/ 薰 =70 1)11=71 群 =72 軍 =73 郡 =74 


卦=75袈=76祁=77係=78傾=79刑=7:兄=7 ;啓=7く圭=7=珪=7> 
型=7?契=7@形 =7 A 径 =7 B 恵 =7 C 慶 =7 D 慧 =7 E 憩 =7 F 掲 =7 G 携 =7 H 
敬=71景 =7 J 桂 =7 K 渓 =7 L 畦 =7 M 稽 =7 N 系=70経 =7 P 継 =7 Q 繫 =7 R 
m =7 S 茎 =7 T 荆 =7 U 蛍 =7 V 計 =7 W 詣 =7 X 警 =7 Y 軽 =7 Z 頸=7〔鶏=7¥ 

芸=7〕迎 =7 A 鯨=7_劇=7=戟 =7 a 撃 =7 b 激 =7 c 隙 =7 d 桁 =7 e 傑 =7 f 
欠 =7 g 決 =7 h 潔 =7 i 穴 =7 j 結 =7 k 血=71訣 =7 m 月 =7 n 件=7〇倹 =7 p 
倦 =7 q 健 =7 r 兼 =7 s 券 =7 t 剣 =7 u 喧 =7 v 圏 =7 w 堅 =7 x 嫌 =7 y 建 =7 z 
憲=7{懸=7!拳 =7} 捲=7〜検=8!権=8「牽=8#犬= 8$献=8%研=8& 
硯=8，絹=8(県 =8) 肩 =8* 見=8+謙=8，賢=8-軒 =8. 遣=8/鍵=80 
険=81頭=82験=83鹸=84元=85原= 86厳=87幻=88弦=89減=8: 
源=8;玄=8く現=8=絃=8> 眩=8?言=8@諺 =8 A 限 =8 B 


乎 =8 C 個 =8 D 古 =8 E 呼 =8 F 固 =8 G 姑 =8 H 孤=81己 =8 J 庫 =8 K 弧 =8 L 
戸 =8 M 故 =8 N 枯=80湖 =8 P 狐 =8 Q 糊 =8 R 持 =8 S 股 =8 T 胡 =8 U 菰 =8 V 
虎 =8 W 誇 =8 X 跨 =8 Y 鈷 =8 Z 雇=8〔顧=8¥鼓=8〕 五 = S へ 互=8—伍=8= 
午 =8 a 呉 =8 b 吾 =8 c 娯 =8 d 後 =8 e 御 =8 f 悟 =8 g 梧 =8 h 檎=8 i 瑚 =8 j 
碁 =8 k 語=81誤 =8 in 護 =8 n 醐 =8〇乞 =8 p 娌 =8 q 交 =8 r 佼 =8 s 侯 =8 t 
候 =8 u 倖 =8 v 光 =8 w 公 =8 x 功 =8 y 効 =8 z 勾= 8 { 厚=8 : 口 = 8} 向= 8〜 
后 =9! 喉=9「 坑 =9« 垢 =9$ 好 =9% 孔 =9& 孝 =9, 宏 =9(ェ =9) 巧 = 9 木 
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仕 =;E 仔 =;F 伺 =;G 使=;1^ 剌=;1 司 =;J 史 =;K 嗣=;し四 =;M 士 =;N 
始=;0姉 =;P 姿 =;Q 子 =;R 屍=;3市 =;T 師 =;U 志 =;V 思 =; V / 指 =;X 
支=;丫孜 =; Z 斯=;〔施=;¥旨=;〕枝二/止=;_死=;=氏 =; a 獅 =;b 
祉 =; c 私 =; d 糸 =; e 紙 =; f 紫 =; g 肢 =; h 脂 =; i 至=;』視 =; k 詞=;1 
詩 =; m 試 =; n 誌=;〇諮 =; p 资 =; q 賜 =;r 雌 =; s 飼 =; t 齒 =; u 事 =;v 
似 =; w 侍 =; x 児 =; y 字 =; z 寺 =; { 慈 : 持 =;} 時 =;〜 次 =く！ 滋=<「 
治=<«爾=く$璽=<%痔=<&磁=く，示=く（而 =<) 耳=く木自=<+蒔=<, 
辞=<一汐 =<• 鹿=</ 式=<0 識=<1鳴=<2竺=<3軸=く4宍=<5 —=<6 
七=<7叱=<8執=<9失=<:嫉=<;室=<< 悉=<=湿=<> 漆=<? 疾=く@ 
質 = く A 実 = <B 機 = く D 德 = く E 柴 = <F 芝 = <G 屢=<1^ 薬=<1 繞 = <』 

舎 =< K 写=<し M =< M 捨 =< N 赦=<〇斜 =< P 煮 =< Q 社 =< R 紗 =< S 者 =<T 
謝 =< U 車=<ゾ遮 =< W 蛇 =< X 邪 =< Y 借 =< Z 勺=<〔尺=<¥杓=<〕灼=<八 
爵 = く—酌 = く二釈 = く a 錫 = く b 若=く c 寂 = <d 弱 = <e 惹 = く f 主 = く g 取 = <11 
守=<1手 =<j 朱 =<k 殊=<1狩=< 111 珠 =<n 種=<〇腫 =<p 趣 =<q S=<r 
首 =< s 德 =< t 受 =< u 呪 =< v 寿 =< w 授 =< x 樹 =< y 綬 =< z 需=< { 囚=<: 
収 =<} 周=<〜宗==!就==「州==«修==$愁==%拾==&洲==，秀==( 
秋 ==) 終==木繍==+習==,臭==一舟 ==• 蒐==/衆==0襲==1窨==2 
獄 == 3輯 == 4週 == 5普 == 6酬 == 7集 == 8醜 == 9什 == :住 == ;充 == < 
十 === 従 ==> 戎 == ?柔 == @ 汁 == 六渋 == 8獣 == 〇縦 == D 重 == £ ^5 == F 
叔 == G 夙 == H 宿==1淑 == J 祝 == K 縮 == L 粛 == M 塾 == N 熟==〇出 ==P 
術 == Q 述 == R 俊 == S 峻 == T 春 == U 瞬 == V 竣 == W 舜 == X 駿 == Y 准 ==Z 
循==〔旬==¥楣==〕殉 == A 淳==_準===潤 == a 盾 == b 純 == c 巡 ==d 
遵 ==e 醇 ==f 煩 ==g 50 i==h 初 ==i 所 ==j 暑 ==k 曙==1渚 ==m 庶 ==n 
緒==〇署 == p 書 == q 墓 == r 藉 == s 諸 == t 助 == u 叙 == v 女 == w 序 ==x 
徐 == y 恕==2：鐵== ( 除==丨傷 ==) 償==〜勝=>!匠 => r 升 => tf 召=>$ 
哨=>%商=>&唱=>’嘗 =>( 奨 =>) 妾=>本娼=>+宵=>,将=>一小 =>• 
少=>/ 尚=>0庄=>1床=>2廠=>3彰=>4承=>5抄=>6招=>7掌=>8 
捷=〉9昇=>: 昌=>; 昭=>< 晶=>=松=>> 捎=>?擦=>®樵 => A 沼 =>B 
消 =>C 渉 =>D 湘 =>E 焼 =>F 焦 =>G 照 =>H 症=>1 ^=>J 硝 =>K 礁 =>L 
徉 =〉 M 称 => n 章=>〇笑 => p 粧 => Q 紹 => R 肖 => s 菖=>丁蒋 => U 蕉 =>V 
衝 => W 裳 => X 訟 => Y 証 => Z 詔=>〔詳=>¥象=>〕赏 => A 醬=> 一 証=>= 
鍾 => a 鐘 => b 障 => c 箱 => d 上 => e 丈 => f 丞 => g 乗 => h 冗 => i 剰=>」 


巷 =9+ 幸 =9, 広=9-庚 =3. 康=9/弘 =90 恒=91慌=92抗=93拘=94 
控 =95 攻 =96 昂 =97 晃 =98 更 =99 杭 =9: 校 =9 ;梗 =9< 構 =9= 江 =9> 
洪 =9? 浩=9@港 =9 A 溝 =9 B 甲 =9 C 皇 =9 D 硬 =9 E 稿 =9 F 糠 =9 G 紅 =9 H 
紘 =91 絞 =9 J 綱 =9 K 耕 =9 L 考 =9 M 肯 =9 N 肱 =90 腔 =9 P 膏 =9 Q 航 =9 R 
M =9 S 行 =9 T 衡 =9 U 講 =9 V 貢 =9 V / 購 =9 X 郊 =9 Y 酵 =9 Z 鉱 =9〔 磺 =9¥ 
銷= 9〕 閤 =9ハ 降 =9 —項 =9 二香 =9 a 高 =9 b 鴻 =9 c 剛 = 9 d 劫 =9 e 号 =9 f 
合 =9 g 壕 =9 h 拷 =9 i 濠 =9 j 豪 =9 k 轟=91麹 =9 m 克 =9 n 刻=9〇告 =9 p 
国: =9 q 榖 =9 r 酷 =9 s 鵠 =9 t 黒 =9 u 獄 =9 v 漉 =9 w 腰 =9 x 甑 =9 y 忽 =9 z 
惚 =9 { 骨 =9 :泊 = 9} 込 =9 〜 此=:!頃=: 「 今 =: tf 困=:$坤二：％墾=:& 
婚=••’ 恨=: ( 懇=:)昏=:* 昆=:+ 根=:,捆=:-混 =:• 痕=:/ 紺=:0 
艮=:1魂=: 2 
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筒 =?Z 諷 =? 〔須 =?¥ 酢 = 
推 =?d 水 =?e 炊 =?f 睡 = 
錘 =?n 随=?〇 髄 = 

据 =?x 杉 =?y 椙 =? ス菅 = 


値 =CM 知 =CN 
致 =CW ^I=CX 
^=Ca 窒 =Cb 
昼 =Ck 柱 =C1 
溜 =Cu 猪 =0 
帖 =0 !帳 =D 「 


地 =C 〇弛 =CP 

遅 =cy m=cz 

茶 =Cc 嫡 =。(1 
注 =Cm fi=Cn 

^=Cw ^=Cx 
庁 =D« 吊 =DS 


恥 =CQ 智 =0? 
築 : =C 〔畜 =C¥ 
着 =Ce 中 =Cf 
衷 = 0 〇註 = 0 口 
Bf=Cy T=Cz 
張 : =D% 彫二 D& 


?&=CS 痴二 CT 
竹 =C 〕 筑二 CA 
仲 =Cg ®=Ch 
酎 =Cq 鋳 =Cr 
兆 =C { 凋 =0 : 
徴 =0 ，懲 =D( 


fi=cu 置 =cv 

蓄 =c_ 逐 =c= 
忠 =ci a=cj 
a=cs if=ct 

喋 =c) 寵 =( :〜 
挑 =D) 暢 =D* 


世 = 〇 $ 瀬 =®% 献二 ®& 是凄 =@( 制 =@) 勢 =@ 氺姓二 ®+ 征 =@, tt=@~ 
成 =0. 政 =®/ 整 =@0 星 =@1 晴 =@2 棲 =@3 栖 =04 正 =@5 清 =@6 牲 =@7 
生 =@8 盛 =@9 精 =@: 聖 =@; 声 =@< 製 =® 二西 =@> 誠 =@7 誓 =@@ 請 =@A 
逝 =®B 醒 =®C 青 =@D 静 =®E 斉 =®F 税 =@G 脆 =@H 隻 =@1 席 =®J 惜 =®K 
戚 =@ し斥 =®M ^=m 析 =@0 石 =®P 積 =@0 籍 =@R 績 =®S 脊 =@T 責 =®U 
赤 =■ 跡 =_ 蹟二 ®X 碩 =@Y 切 =®Z 拙=@〔接 =@¥ 摂二®〕折 =® A 設 =@ 一 
窃 =@= 節 =® a 説 =®b 雪 =@c 絶 =@d 舌 =®e 婵 =@f 仙 =®g 先 =®h 千二 ® i 
占宣 =@k 専 =@1 尖 =@m 川 =®n 戦 =@ 〇扇 =®P 撰 =©q 栓 =®r 栴 =®s 
泉 =@t 浅 =0u 洗 =@v 染 =@w 潜 =®x 煎 =@y 煽 =®z 旋 =®{ 穿 =@! 箭=骱 
線 =@ 〜 ®=A ! 羨 =A 「 腺舛 = ム$船 =A% ®=A& 詮 =4’ 賤 =A ( 践 = ム） 
選二 A* ^§=A+ 銭 =A, 銑 =A— 閃 =A. 鮮 = ム / 前 =A0 善 =A1 漸 = み 2 然 = ム 3 

全 =/U 禅 =A5 繕 =A6 膳 =A7 g=A8 


嗜 = 八 9 塑 = 六：咀 =A; g=A< 曾 =A= 曽 =A> 楚 = 八 ? 狙 =A® S=AA 疎 =AB 
礎 : =AC 祖 = 六 0 S=AE 粗 =AF 素 =AG 組 =AH 蘇 =AI K=AJ 阻 =AK 遡 =AL 
鼠 =AM 僧 =AN 創 =A0 双 =AP 叢 =AQ 倉 =AR 喪二 AS 壮 =4 丁奏 = ム 11 爽=ムゾ 
5^=AW 層 =AX E=AY ^=AZ 想 =4 〔捜 = 六 ¥ 掃 = ん）揷二 A A g=A_ 操 =A 二 
早 =Aa W=Ab 巣 =Ac tl=Ad 1f=Ae 漕 =Af 燥 =Ag 争 =Ah 瘦 =‘ へ 1 相 =Aj 
窓 =Ak 糟 =41 総 =Am ^=An 聡 =' 〇草 =Ap 荘 =“ 葬 =Ar 蒼 =As 藻 =At 
装 =Au 走 =Av 送 =Aw 遭 ： Ax _=Ay 霜 =Az 騷 =A { 像 =A 丨増 =A} 憎 =A 〜 
臓 =B! 蔵 =B 「 贈 =Btf 造 =B$ 促 =B% 側 =B& 則 =B ， 即 =B( 息 =B) 捉 = 已 * 
束 =B+ 測 =B ， 足 =B- 速 =B. 俗 =B/ 属 =30 賊 =81 族 =B2 続 =B3 卒 = 已 4 
袖 =B5 其 =B6 揃 =B7 存 = 已 8 孫 =B9 尊 =B: 損 =B; 村 =B< 遜 =B= 


城 =>k 場 =>1 壌 =>m 嬢 =>n 常 => 〇情 =>p 擾 =>q 条 =>r 杖 =>s 浄 =>t 
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付録 


プリンタ機能一覧表 



PC-8023(C) ^ ： ltn/22 PC-PR201 Z-Z[l) 


印字指令 




垂直タブ 


-ームフィード 


拡 大 

( 8 bit ) 


セレクト 


ディセ 





拡 大 

( 7 bit ) 


水平タブ 


キヤンセル 


行改行 


CR 


LF 


VT 


FF 


50 

51 


DC 1 


DC 3 


DC 2 

DC 4 


HT 


CAN 


US 


OD 


OA 


OB 


OC 


ファのデータを 印字 


1 行送 1 ) 


多行送り 


改ページ 


0 E 拡大指令 （8 bit ) 
OF 拡大解除 （ 8 bit ) 



セレクト 


13 



クト 


12 拡大指令 （ 7 bit ) 
14 拡大解除 （ 7 bit ) 


09 


18 


IF 



水平タブ移動 


デ ー タのキャンセノ 


. 〜15行の改行 


タブ位置等の設定 



印字方法 


ESC , N 1 B ，4 E HS ノ、 0 イカ 


ESC , P 1B, 50 


ポー シヨナル 




■■■園 

I—IM— 



ESC , Q 1 B , 51 コンテ'ンス 

ESC , E 1 B , 45 ェリート 

ESC , H 1 B , 48 HD ノ、。イカ 

ESC , K IB , 4 B 漢字（横） 

ESC , t IB , 74 漢字（縦^ _ 


ESC ， SOHIB, 01 1 ドットスペース 

ESC ， STXIB, 02 2 ドットスペース 

ESC, ETXIB, 03 3 ドットスペース 

ESC，EOT IB, 04 4 ドットスペース 

ESC，ENQ IB, 05 5 ドットスペース 

ESC, ACKIB, 06 6 ドットスペース 

ESC, BEL IB, 07 7 ドットスペース 

ESC, BS IB, 08 8 ドットスペース 


キャラクタモード ESC，S IB , 24 英数記号モード 

ESC ， & IB , 26 ひらがなモード 
ESC , it IB , 23 内部グラフ ィ ックモード 


ドット列印字モード ESC , S 1 B ， 53 8 bit ドット列 

ESC , I 1 B ， 49 16 bit ドット歹り 
ESC , J 1 B ，4 A 24 bit ドット歹 ij 
ESC , V IB , 56 8 bit ドット列リピート 

ESC，W IB , 57 16 bit ドット列リピート 
ESC，U IB , 55 24 bit ドット列リピート 


〇 


〇 

〇 


〇 


〇 


〇 


〇 



〇 

〇 


〇 


〇 




mm 


〇 

〇 

〇 

〇 




〇 


〇 

〇 


〇 


〇 


〇 


〇 


〇 

〇 

〇 

〇 

〇 

〇 

〇 


〇 

〇 

〇 

〇 


〇 

〇 

〇 

〇 

〇 


〇 

〇 





〇 

〇 

〇 


〇 

〇 


〇 

〇 


〇 

〇 

〇 


〇 

〇 

〇 


〇 

〇 

〇 

〇 

〇 


〇 

〇 

〇 

〇 

〇 


〇 

〇 

〇 


〇 

〇 

〇 

〇 

〇 

〇 
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ESC , F IB , 46 ドットアドレッシング 
キャラクタリピート ESC , R 1 B , 52キャラクタリピート 


PC-8023(C) 淡 : 温 ?/ 22 PC-PR201 S°o ( ( 屋 )) 


〇 






強調文字 


ESC , ! 
ESC ， ’ 


IB , 21強調文字セレクト 
1 B ， 22 強調文字解除 


印字モード ESC ,] IB , 5 D ロジカルシークモード 

ESC , > IB , 3 E 片方向印字 


〇 

〇 


〇 


〇 


〇 

〇 


〇 

〇 


〇 

〇 


〇 

〇 


〇 


〇 

〇 


〇 

〇 


ESC , r IB , 5 B 


ンクリメン タルモー ド 


〇 


改行幅 


改行方向 


ESC , A IB , 411/6インチ改行モード 
ESC , B 1 B , 421/8インチ改行モード 
ESC , T 1 B , 54 N /120 インチ改行モード 

N /160 インチ改行モード 


ESC , f IB , 66 顺方向改行モード 


ESC , 


1 B ， 72 逆方向改行モード 


■■■_ 

■■■■ 


水平タブ 


ESC ,( 1 B , 28 水平タブセット 

ESC ,) 1 B , 29 水平タブ部分クリア 

ESC , 2 1 B ， 30 水平タブ、オーノレクリ 


アンダーライン ESC , X 1 B , 58 アンダーライン開始 

ESC , Y 1 B , 59 アンダーライン終了 


レフトマージン ESC , L IB , 4 C 印字開始位置の設定 
ライトマージン ESC , / IB , 2 F 印字終了位置の設定 


くン切換 ESC , C 1 B , 43リボン切換指定 


外字のロード ESC , * IB , 2 A 外字のロード (16 X 16 ド 

ESC , + IB , 2 B 外字のロード (24 X 24 ド 


ドット対応グラ ESC , D 1 B , 44 640ドットモード 



〇 

〇 

〇 


〇 

〇 




クトヘン 


(コピー モード） 


数の切リ換え ESC , M IB , 4 D 960ドットモード 


(ネイティブモード） 


■■■_ 

■■■_ 

■■ 


シフトフイー^^ ESC , 


1 B , 61全排出後全吸入 


ESC , b IB , 62 全排出 



〇 

〇 



* 1 ) NM - 9300 S / 940 0 S では N /180 インチ改行 
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NM-9300/9400 CEX シーケンス （NM- 9300 S/ 940 OS では SUB シーケンス) 


分 類 

ニーモニック 

コ— ド 

HEX コード 

機 能 

ドット列印字 

モード 

CEX , A 

1 A , 41 

960 ドット /8 インチ基本ピッチ 

CEX , B 

1 A , 42 

1280ドット/8インチ基本ピッチ 

CEX , C 

1 A , 43 

1440ドット/8インチ基本ピッチ 

改行基本 

ピッチ 

CEX , F 

1 A , 47 

1/120インチ改行ピッチ 

CEX , G 

1 A , 46 

1/160インチ改行ピッチ* 1 

外字ロード 

クリア 

CEX ,1 

1 A , 31 

外字登録部分クリア 

CEX , 2 

1 A , 32 

外字登録オールクリア 

スーハ °/ サブ 
ス クリプト 
モード 1 

CEX , U 

1 A , 55 

スーパースクリフ。トモード 

CEX , L 

1 A , 4 C 

サブスクリブトモード 

文字の縦拡大 

CEX , V 

1 A ，56 

縦拡大文字モード 

CEX , W 

1 A , 57 

縦拡大の解除 

漢字モード 

ピッチ選択 

CEX , Q 

1 A , 51 

漢字24ドットピッチ 

CEX , N 

1 A , 4 E 

漢字27ドットピッチ 

CEX , E 

1 A , 45 

漢字30ドットピッチ 

CEX , P 

1 A , 50 

漢字36ドットピッチ 
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付録- 10 機械語 オペレーション ー覧表 

(1) イミディエート値 

n : 8ビット 

n n :16ビット 

(2) フラグ 

• = 変化しない 
〇 =リセットされる 
1=セットされる 

x =不定 

I = 操作の結果でセット/リセットされる 
IFF =害りり込みイネーブル•フリップ•フロップの状態 
P = P/V フラグはパリティフラグとして扱われる 
V = P/V フラグは才ーバーフロー•フラグとして扱われる 
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8 ビット •ロー ド 


インテル 
ニーモニック 


シンボリック 
オペレーション J 

フラグ変化 

実行時間 


B 


s 

□ 

El 

MOV r ， r ， 

LD r ， r ， 


• 

• 

• 

• 

• 

• 

4 

mmm 



• 

• 

• 

• 

□ 

□ 


BAtiiMiiriW 

LD r ，( HL ) 

msassam 

□ 

□ 

□ 

□ 

□ 

□ 


■ 

LD r ,( lX + d ) 

r—(IX + d ) 

□ 

□ 

□ 

□ 

□ 

□ 

19 

LD r,(IY + d ) 

r—(IY + d ) 

□ 

□ 

□ 

□ 

□ 

□ 

mom 

MOV M,r 

LD ( HL),r 

( HL)—r 

• 

• 

• 

• 

• 

• 

7 


LD (lX + d),r 

(IX + CI)—r 

1 

• 

• 

• 

1 

• 

• 

• 

19 

LD (IY + d),r 

(IY + d)<-r 

□ 

□ 

□ 

□ 

□ 

□ 

■EH 

MVI M，n 

LD ( HL),n 

( HL)<-n 

□ 

□ 

□ 

□ 

□ 

□ 

mom 


LD (IX + d),n 

(IX + d)<-n 

□ 

□ 

□ 

□ 

□ 

• 

19 

LD (IY + d),n 

(1 丫 + d)—n 

□ 

□ 

□ 

□ 

□ 

□ 


し DAX 巳 

LD A,(BC) 

A —( BC ) 

□ 

□ 

□ 

□ 

□ 

□ 


し DAX D 

LD A ， (DE) 

A —( DE ) 

□ 

□ 

□ 

□ 

• 

□ 


し DA nn 

LD A ，( nn ) 

A <-( nn ) 


□ 

• 

• 

• 

• 

HEHI 

STAX 巳 

LD ( BC)，A 

(BC)—A 

□ 

□ 

口 

• 

• 

• 


STAX D 

LD ( DE)，A 

( DE)—A 

□ 

□ 

□ 

□ 

• 

1 

• 


ST A nn 

LD ( nn)，A 

( nn)—A 


□ 

□ 

□ 

□ 

□ 

13 


LD A，l 


□ 

Q 


H 

□ 

□ 

9 

LD A,R 


□ 

□ 

ES 


□ 

□ 

■OH 

LD l,A 


□ 

□ 

□ 

□ 

□ 

□ 


LD R，A 


□ 

□ 

□ 

□ 

□ 

□ 



注) r ， r ， は A , B ， C , D , E , H , L レジスタを指す。 

IFF (割り込みイネーブル•フリップ•フロップ）は P / V フラグにコビーされる。 
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8 ビツト算術•論理演算 




シンボリック 
オペレーション 

フラ グ変化 

実行時間 

備 考 

C 

B 


S 


■HD 

ADD A，r 

A<-A + r 

Q 

Q 

□ 

H 

□ 

□ 



HBI 



■ 

Q 


Q 

□ 

B 


ADD M 

ADD A ， (H し） 

A—A + (HL) 

H 

□ 

□ 

Q 

□ 

Q 



ADD A，（IX + d) 

A—A + (IX + d) 

I 

t 1 


Q 

□ 

Q 


ADD A,(IY + d) 

A—A + (IY + d) 

圜 

□ 

□ 

Q 

□ 

D 

mSm 

ADCS 

ADC A,s 

A—A+s+CY 

H 

H 

□ 

Q 

□ 

□ 

A D D と 

同 じ 

SUBS 

SUB s 

A<—A —s 

H 

H 

□ 

□ 

n 

B 

SBBS 

SBC A,s 

A<—A —s —CY 

D 

D 

□ 

D 

n 

H 

ANI’i ANAS 

AND s 

A—AAs 

□ 

□ 

□ 

B 

□ 

□ 

ORI , 1 ORA S 

OR s 

A<-AVs 

□ 

H 

□ 

□ 

□ 

Q 

XRI ,i XRAS 

XOR s 

A<—Axs 

□ 

H 

13 

H 

□ 

□ 

CPI ,1 CMPS 

CP s 1 

A —s 

B 

Q 

□ 

D 

D 

Q 

INR r 

INC r 1 


□ 

Q 

□ 

Q 

□ 

□ 


INRM 

INC (HL) 

(HL)—(HL)+1 


H 


D 

□ 

D 



INC (IX + d) 

(IX + d)— 

(IX + d) + 1 

H 

H 

H 

1 

1 

1 

23 

INC (lY + d) 

(IY + d)<- 
(lY + d) + 1 


1 


H 


H 

23 

DCR M DCR r 

DEC m 

m<-m —1 

□ 

O 

□ 

□ 

n 

H 

1 N C と同じ 


S は「几屮し),（以+め,（1丫+〇1)を表す。 
m はし（^1し),（以+(]),(1丫+〇1)を表す。 
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16 ビツトロー ド 


インテノレ 
二ーモニック 

ザイログ 
二ーモニック 

シンボリック 
オペレーシヨン 

フラグ変化 

実行時間 

備 考 

C 

Z 

P/V 

s 

□ 

□ 

ISEEBDii 

LD dd，nn 

dd<—nn 

□ 

□ 

□ 

□ 

□ 

□ 


nn は 2 バイト数 

下位 1 バイトは 0P 

コードの直後。 

上位丨バイトは 

その次に入る。 

■ 


IX<—nn 

□ 

• 

□ 

□ 

□ 

• 


LD 1 丫 , nn 

IY<—nn 

□ 

• 

□ 

□ 

□ 

• 

■m 

HHH 

LD HL ，（ nn) 

H—(nn+1) 

L<—(nn) 

H 



H 


• 

■ 


LD dd ，（ nn) 

ddn<—(nn+ 1) 
ddL+(rrn) 

H 






20 

LD IX, (nn) 

IXh—( nn +1) 
IXl'*—( nn) 







20 

LD IY, (nn) 

IY h—( nn + 1) 
IYl—( nn) 

H 



B 



16 

HBH 

LD(nn)，HL 

(nn+ 1)—H 
(nn)<—L 




H 



20 


LD(nn)，dd 

(nn+ 1 )<-ddH 
(nn)^-ddL 




H 



20 

LD(nn),IX 

(nn+1 )—IXh 
( nn)—IX l 




H 



20 

LD(nn),l 丫 

(nn+ 1)—1 丫 h 
( nn)<—IY l 

H 



H 



20 

SPHL 

LD SP.HL 

SP—HL 




□ 



mam 


し D SP.IX 

SP—IX 

□ 



□ 




LD SP.IY 


□ 



□ 




PUSH qq 

PUSH qq’ 

(SP-2)—qqL 
(SP-l)^-qqn 

H 



H 



■ 


PUSH IX 

(SP-2)—IXl 
(SP-1)—IXh 








PUSH IY 

(SP-2)—IYl 
(SP-1)<-IYh 

H 







POP qq 

POP qq 

qqH—(SP+1) 
qqL—(SP) 

H 








POP IX 

!Xh<-(SP+1) 
IXl—(SP) 








POP IY 

IYh<-(SP+1) 
IYl—(SP) 







n 


注） dd はレジスタ • ペア BC,DE ， HL,SP 。 
qq はレジスタ • ペア AF ， BC ， DE ， HL 0 
添字 H ， L はそれぞれ高位バイト、低位バイトを表わす。 
例） BCl = C,AFh=A 
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16 ビット算術演算 


インテル 
二ーモニック 

ザィログ 
二ーモニック 

シンボリック 

オペレーション 

フラグ変化 1 

実行時間 

備 考 

S 

C 

Z 

P/V 

S 

□ 

DAD ss 

ADD HLiss 

HL—HL + ss 

H 

□ 

□ 

□ 

□ 

□ 



INX ss 

ADC H し ]ss 

HL—HL + SS + 〇丫 

H 

B 


Q 

□ 

□ 


SBC HL，ss 

HL—HL-ss-CY 

D 

Q 

□ 

Q 

n 

□ 


ADD IX,pp 

IX—IX + pp 

H 

□ 

□ 

□ 

□ 

□ 


ADD IY,rr 

fsasssam 

Q 

□ 


□ 

□ 

□ 

mmam 

INC ss 


□ 

□ 

□ 


□ 

□ 




EOQEH 

□ 

□ 

□ 

□ 

□ 

□ 




□ 

□ 

□ 



□ 


DCX ss 

DEC’ss 

ss<—ss—1 


□ 

□ 

□ 

□ 

□ 

Han 


DEC IX 」 

IX—IX-1 

□ 

□ 

□ 

□ 

□ 

□ 




□ 

□ 

□ 

□ 

□ 

□ 



注） ss はレジスタ •ペア 巳 C ， DE,HL ， SP 。 
pp はレジスタ •ペア 巳 C, DE, IX, SPo 
rr はレジスタ •ペア 巳 C 、 DE 、 I 丫、 SP 。 
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ジャンプ 


インラル 
二ーモニック 

ザィログ 
二ーモニック 

シンボリック 
オペレーション 

フラブ変化 

実行時間 

備 考 

C 

Z 

P/V 

S 

N 

H 

JMP nn 

JP nn 

PC—nn 

• 

• 


• 

• 

• 

10 


JNZ 

JZ 

JNC 

JC 

JP0 

JPE 

JP 

JM ； 

rm 

JRe 

JP cc, nn 

cc が真ならば 
PC<—nn, 

その他は次へ 

• 

— 

• 

• 

• 

• 

■ ■ ■■ ■ 

10 

〇 C : 条件 

NZ: ノンゼロ 

(z=o) 

Z :ゼロ 
(Z=1) 

NC: ノンキヤリー 

(C = 0) 

C :キャリー 
(0=1) 

P0 : パリテイ奇数 
(P/V = 0) 
PE : パリテイ偶数 
(P/V=1) 

P :正 

(s=o) 

M : 負 
(S=1) 

JR e 

PC—PC+e 

• 

• 

■ ■ ■ ■■ 

• 

• 

• 

• 

12 

JRC e * 

JR C, e 

C=1 ならば 
PC<-PC + e 

• 

• 

• 


• 

• 

12 

7 

C=0 ならば 
次へ 

JRNC e* 

JR NC, e 

C=0 ならば 
PO-PC + e 

• 

• 

• 

• 

• 

• 

12 

7 

C=1 ならば 
次へ 

JRZ e* 

JR Z, e 

Z=1 ならば 
PC<-PC + e 

• 

• 

• 

• 

參 

• 

12 

7 

z=o ならば 
次へ 

JRNZ e* 

JR NZ, e 

z=o ならば 
PC—PC+e 

• 

• 

♦ 

• 

• 

• 

• 

12 

7 

■ 

Z =1 ならば 
次へ 

PCH し 

JP(HL) 

PC—H し 

• 


• 


• 

• 

4 


JP(IX) 

PC—IX 

• 

• 

• 

• 

• 

• 

8 

JP(IY) 

PC<-IY 

• 

• 

• 

• 

• 

• 

8 

DJNZ e* 

DJNZ e 

巳 — B—1 

巳关〇ならば 

PC—PC + e 

• 


• 

• 

• 

參 

13 

8 

巳 =0 ならば 
次へ 


フラグ 

(z=0) 

(Z=1) 

(c=o) 

(C=1) 
(P/V = 0) 
(P/V=1) 

(s=0) 

(S=1) 


注） e は相封アドレシンダ•モードでのイクステンション 
e は符号付は 2 の補数値 (- 126〜+ 129 )。 
e そのものは、 0P コードの位置から計算した値である。 
• は PC-8801 mk II モニタでのみ使用可。 
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コ ー ル、リタ ー ン 


インテル 
二ーモニック 

サイログ 
ニーモニック 

シンボリック 
オペレーシヨン 

フラグ変化 

実行時間 

--- 

備 考 

C 

Z 

P/V 

s 

N 

H 

CA しし nn 

CA しし nn 

(SP-1) 一 PCh 
(SP-2) 一 PCl 
PC<— nn | 

• 

• 

• 

• 

1 

• 

• 

17 

〇 C : 条件 

NZ: ノンゼロ 

(z=o) 

Z :ゼロ 

(Z = 1) 

ノンキヤリー 
NC: ノンキヤリー 

(。= 〇 ) 

C こキヤリー 

( 。 =1) 

P0 : パリテイ奇数 
(P/V = 0) 

卩巳：ノ、°リテイ偶数 

(P/V=1) 

P :正 

(s=o) 

Mi 

(S=1) 

CNZ ' 

CZ 

CNC 

CC 

CPO 

OPE 

CP 
CM ) 

RET 

，nn 

CALL cc, nn 

I 

cc が真ならば 
CALL nn と同じ 

•: 

• 1 

• i 

• 



17 

10 

その他ならば 
次へ ' 

RET 

PCi.^-(SP) 

PCh<-(SP+1) 

• 

• 

• 

• 

• 

• 

10 

RNZ 

RZ 

RNL 

RC 

RPO 

RPE 

RP 

RM 

RET cc 

cc が真ならば 
RET と同じ 



• 

• 

1 

• 

r~~ 

M 

5 

その他ならば 
次へ 


RETI 

割り込みからの 

リターン 

• 

• 

• 


• 

• 

,4 


RETN 

ノン . マスカブル 
割り込みからの 
リターン 

• 




• 

• 

14 

RST p 

RST 0 

l 

7 

RST p 

(SP-1)—PCh 

(SP — 2)— P 〇し 

PCh —o 

PCl— p 

• 


• 

• 

• 

• 

II 


フラグ 

(z= 0 ) 

(z= 1 ) 

(c=o) 

(C=1) 
(P/V = 0) 
(P/V=1) 

(s=o) 

(S=1) 
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A = (HL ) または 
BC=0 ならば 
終わり 


A-(HL) 
HL—HL-1 
BC — 巳 C-1 


CPDR 


CPD 


CPIR 


a-(hl) 

HL—HL+ 1 
BC 一巳 C-1 

A = (HL ) または 
巳 C = 〇ならば 
| 終ゎり _ 


A-(HL) 
HL<-HL-1 
BC<-BC-1 


CPI A-(HL) 

HL—HL+ 1 
BC — 巳 C-1 


② |(D 

t t 


BC=0 ならは 
終わり 


LDDR 


(DE) —(HL) 
DE—DE-1 
HL—HL—1 
BC — 巳 C-1 


LDD 


(DE)—(HL) 
DE—DE-1 
HL—HL-1 
巳 O - 巳 C 一 1 


LDIR (DE)-(HL) 

DE—DE+ 1 
HL—HL+ 1 

巳 O- 巳 C 一 1 

巳 C=0 ならば 
! 終わり 


LDI 


(DE)-(HL) 
DE—DE+ 1 
HL—HL+ 1 
BC^BC-1 


ポインタ 

1 増 

バイト•カウンタ 

1 滅 

巳 C キ〇のとき 


BC=0 のとき 


BC キ〇のとき 


BC=0 のとき 


BC キ〇かつ 
A 女 （ HL ) のとき 


BC=0 か 
A = (HL ) のとき 


巳 C 女〇かつ 
A 女 （ HL ) のとき 


BC=0 か 
A = (HL ) のとき 


IYh ㈠ （ SP+ 1 ) 
IYl->(SP) 


EX (SP)JY 


Xh ㈠ （ SP+ 1 ) 
Xl ヤ （ SP) 


EX (SP )， 


㈠ （ SP+ 1) 
㈠ （ SP) 


EX (SP)，HL 


XTH し 


EXX 


レジスタの切換 


AF ， 


EX AF ， AF ， 


HL 


EX DE，HL 


XCHG 





フラグ変化 


シンボリック 
オペ レー シヨン 


ザイログ 


実行時間 


インテル 


ロツク車適•サーチ 


c E L 

巳 D H 


f 9 9 

CEL 
B D H 


注）①巳 C —1=0 ならば P / V は0、その他は1。 
② A =( HL ) ならば Z は1、その他は0。 
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各種操作および CPU 制御 


インテル 
二ーモニック 

サイログ 

二ーモニック 

シンボリック 

オペレーション 

フラグ変化 

実行時間 

備 考 

C 

Z 

P/V 

s 

N 

H 

DAA 

DAA 

10進補正 
(加算、減算） 

1 

1 

1 

1 

1 

1 

■ 

デシマル•アジヤスト 

•アキュムレータ 

CMA 

CP し 

A—A 




1 


1 

4 

1の補数 


NEG 


Q 



Q 



■OH 

2の補数 

CMC 

CCF 

CY—CY 

Q 

□ 

□ 

□ 

El 

□ 


キャリの反転 

STC 

SCF 


D 

□ 



a 

〇 


EZSBSD 

NOP 

NOP 

-1 

No operation 

□ 

□ 

□ 

□ 

□ 

□ 


mmmtm 

H し丁 

HALT 

CPU 待機 

□ 

□ 

□ 

□ 

□ 

□ 

mam 



■KBHHi 

maasmm 

□ 

□ 

□ 

□ 

□ 

□ 

IH 3 H 

ディスエ-ブル割り込み 


El 


□ 

□ 

□ 

□ 

□ 

□ 


イネ-ブル割り込み 


IMO 

MODE 0 

にセット 

1 

1 

1 

1 

1 

1 

■ 

割り込みモード 

のセツト 

IM 1 

MODE 1 

にセット 

• 

• 

• 

• 

參 

• 

8 

IM 2 

MODE 2 

にセット 

1 

1 

l 

1 

l 

1 

■ 



注） IFF は割り込みフリップ•フロップ。 
CY はキヤリフラグ。 
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入力 


出力 


インテノレ 
二ーモニック 


OUT 


ザイログ 
二ーモニック 


IN A, (n) 



INDR 



OUT (n)，A 



OUT (C),r 


OUTI 


OTIR 


OUTD 


OTDR 


シンボリック 
オペ レー シヨ 


A—(n) 


フラグ変化 


C Z P/V S N 



実行時間 



r—(C) 


(HL )— ⑹ 
B—B-1 
HL—HL+1 


(HL )— ⑹ 
B—B —1 
HL—HL+1 
B=0 まで繰り返す 


(hl)Hc) 

巳— B -1 
HL<-H し 一 1 


(HLHC) 

巳 — B-1 

HL—HL-1 
B=0 まで繰り返す 


(n)—A 


(C)-r 


B—B-1 


(Ch 

H し 


< — 


(HL) 

-HL+1 


B^ - B 一 1 
(C)—(HL) 
HL—HL+1 


B=0 まで繰り返す 


B—B-1 
( 。 )— (HL) 
HL^-HL-1 


巳 <- B —1 

(C)—(HL) 


HL^HL-1 
B=0 まで繰り返す 


16 


注）① B —1 が0になれば Z フラグがセツトされ、それ以外のときはリセツトされる 

② |[\]|，1问旧，旧0,旧0闩ではデクリメントされる前の B の値が As 〜 Ais にのる。 

③ 0 UTI ，0 TIR ，0 UTD ,0 TDRT ?1 i 〒^ リメントされた後の B のイ直力く A 8 〜 A 15にのる 


備 ： 


n—Ao 〜 A7 

Acc—Ao 〜 Ai5 



C—Ao 〜 A 7 
B—>As~Ai5 


B 今 0 のとき 


〇のとき 


B キ〇のとき 


B = 0 のとき 


n—>Ao 〜 A7 
Acg — A5 〜 A15 


G—Ao 〜 A7 
B—As 〜 Ais 


B_0 のとき 


巳 = 0 のとき 


B キ〇のとき 


〇のとき 
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□ 


テイト、シフト 


インテル 
二ーモニック 

丨ザィログ 
二ーモニック 

RLC 

RLCA 

■ — ■ ■■- 

RAL 

R し A 

RRC 

1 ■ - ■ 1 

RRCA 

1 - ■ 

RAR 

RRA 


RLC r 


RLC (HL) 
RLCI (X+d ) 


r RLCI (Y + d ) 


RL s 


RRC s 


RR s 

I 

SLA s 


SRA s 

L 

SRL s 


R し D 


RRD 


シンボリック 
オペレーション 


フラグ変化 







(HL) ； IX-fd).(lY+(l) 




-> 〇 


-oh- 〇 





Acc 



Acc 


S は r,(HL)，（IX + d)，（IY + d) を表す。 


実行時間 


〇〇 


8 ~ 

15 

23 ^ 

23 


R し C 
と同じ 


18 


18 
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ザイロク 
二ーモニック 


BIT 


BIT 


BIT 

btT 


SET 


SET 


b，r 


b ，（ HL) 


b，r 


b ，（ HL) 


b ，（ IX+d) 
b ， (lY+d) 


^^mEESSSSHOElESHEID 
mBBlESESB^DDBgan 

111111 明 SB 

mszH & ■□ロロ □□□ 
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付- 11 16 進コードー^ ー モニック早見表 


上位 4 ヒッ 


0 


6 


NOP 

LD 

し D 

INC 


巳 C.b 3 b2 
(BC).A 
BC 


INC B 
DEC B 
LD B ， b2 
RLCA 


A 

B 


C 

D 

E 

F 


EX AF,A. F_ 
ADD HL.BC 
LD A ， (BC) 
DEC BC 


INC C 
DEC C 
LD C,b2 
RRCA 


DJNZb 
LD DE,b3 b2 
LD (DE),A 
INC DE 


INC D 
DEC D 
LD D,b 2 
RLA 


JR 

ADD 

LD 

DEC 


b2 

HL.DE 

A.(DE) 

DE 


INC E 
DEC E 
LD E.b 2 
RRA 


2 


JR NZ,b 
LD HL,b3 b2 
LD (b3b2),HL 
INC HL 


INC 

DEC 

し D 

DAA 


JR 

ADD 

し D 

DEC 


INC 

DEC 

し D 

CPL 


H 

H,b2 


Z,b 2 
HL’HL 
HL,b3b 2 
H し 


3 


JR NC.b 
LD SP.b3b 2 
LD (b3b 2 ),A 
INC SP 


INC 

DEC 

し D 

SCF 


(HL) 

(HL) 

(HL).b 2 


し 

L,b2 


JR 

ADD 

し D 

DEC 


C,b 2 

HL.SP 

A ， (b3b2) 

SP 


INC A 
DEC A 
LD A,b2 
CCF 


4 


LD 巳 ， B 
LD B.C 
LD B.D 
LD B.E 


LD B.H 
LD B.L 
LD B,(HL) 
LD B.A 


LD 

LD 

LD 

LD 


C.B 

C.C 

C，D 

C.E 


LD C,H 
LD C,L 
LD C,(HL) 
LD C,A 


5 


LD 

LD 

LD 

LD 


D.B 

D.C 

D.D 

D，E 


LD D.H 
LD D , し 
LD D,(HL) 
LD D,A 


LD 

LD 

LD 

LD 


E,B 

E.C 

E,D 

E.E 


LD E.H 
LD E.L 
LD E.(HL) 
LD E,A 


LD 

LD 

LD 

LD 


6 


LD H.B 
LD H.C 
LD H，D 
LD H,E 


LD H,H 
LD H,L 
LD H,(HL) 
LD H,A 


L,B 

L.C 

L，D 

L,E 


LD L.H 
LD L,L 
LD L,(HL) 
LD L,A 


LD (HL),B 
LD (HL),C 
LD (HL),D 
LD (HL).E 


LD (HL),H 
LD (HL)，L 
HALT 

LD (HL).A 


LD A，B 
LD A,C 
LD A,D 
LD A，E 


LD A,H 
LD A.L 
LD A ， (HL) 
LD A,A 


0 

1 


4 


6 


9 

A 

B 


C 

D 

E 

F 


® CB + 


A 

B 


C 

D 

E 

F 


0 


RLC 

RLC 

RLC 

RLC 


3 


D 

E 


RLC 

RLC 

RLC 

RLC 


H 

し 

(HL) 

A 


RRC 

RRC 

RRC 

RRC 


巳 

C 

D 

E 


RRC 

RRC 

RRC 

RRC 


H 

し 

(HL) 

A 


RL 

RL 

RL 

RL 


RL 

RL 

RL 

RL 


RR 

RR 

RR 

RR 


RR 

RR 

RR 

RR 


B 


D 


H 

し 

(HL) 

A 


巳 

C 

D 

E 


(HL) 

A 


2 


SLA 

SLA 

SLA 

SLA 


B 

C 

D 


SLA 

SLA 

SLA 

SLA 


H 

し 

(HL) 

A 


SRA 

SRA 

SRA 

SRA 


巳 

C 

D 

E 


SRA 

SRA 

SRA 

SRA 


H 

し 

(HL) 

A 


3 


4 


5 


6 


BIT 

BIT 

BIT 

BIT 


O.B 
C 


0 


SRL 

SRL 

SRL 

SRL 


B 

C 

D 

E 


BIT 

BIT 

BIT 

BIT 


BIT 

BIT 

BIT 

BIT 


SRL 

SRL 

SRL 

SRL 


H 

し 

(HL) 

A 


BIT 

BIT 

BIT 

BIT 


D 


BIT 

BIT 

BIT 

BIT 


2，B 

2,C 

2,D 


H 


(HL) 

A 


B 

C 

D 


BIT 

BIT 

BIT 

BIT 


2,H 
2 丄 
2 ， (HL) 
2.A 


BIT 

BIT 

BIT 

BIT 


4,B 
C 


BIT 

BIT 

BIT 

BIT 


4,(HL) 
A 


BIT 

BIT 

BIT 

BIT 


3.B 

3.C 

3，D 

3.E 


(HL) 

A 


BIT 

BIT 

BIT 

BIT 


3，H 
3,L 
3 ， (HL) 
3.A 


BIT 

BIT 

BIT 

BIT 


5 


BIT 

BIT 

BIT 

BIT 


5 


E 


BIT 

BIT 

BIT 

BIT 


6 

6 


6 


H 


B 

C 

D 


BIT 

BIT 

BIT 

BIT 


.H 

6 

6,(HL) 
A 


BIT 

BIT 

BIT 

BIT 


7 

7 


H 


(HL) 

A 


BIT 

BIT 

BIT 

BIT 


7 


巳 

C 


巳 

C 

D 


(HL) 

A 


② DD + ④ FD + ( 表中の IX を IY に） DD.CB + (FD. CB+) 


09 

ADD 

IX.BC 

66 

し D 

H.(lX+b 3 ) 

B6 

OR 

(iX+ba) 

19 

ADD 

IX,DE 

6E 

し D 

L.dX+bs) 

BE 

CP 

(lX+b 3 ) 

21 

し D 

IX,b4b 3 

70 

し D 

(IX+b3)，B 

CB 


氺 

22 

し D 

(b4b 3 ).IX 

71 

し D 

(IX+b 3 ),C 

El 

POP 

IX 

23 

INC 

IX 

72 

し D 

(IX+b3)，D 

E3 

EX 

(SP)JX 

29 

ADD 

IXJX 

73 

し D 

(IX+b 3 )，E 

E5 

PUSH 

IX 

2A 

し D 

IX,(b4b 3 ) 

74 

し D 

(IX+b3),H 

E9 

JP 

(IX) 

2B 

DEC 

IX 

75 

し D 

(lX+b 3 ).L 

F9 

し D 

SP.IX 

34 

INC 

(IX + b3) 

77 

し D 

(lX+b 3 ),A 




35 

DEC 

(lX + b 3 ) 

7E 

し D 

A,(IX+b3) 




36 

し D 

(lX+b 3 ).b4 

86 

ADD 

A,(IX+b 3 ) 




39 

ADD 

IX,SP 

8E ADC 

- 

A,(IX+b3) 




46 

し D 

B,(IX+b3) 

96 SUB (IX+b 3 ) 




5E 

し D 

C,(IX+b3) 

9E SBC 

A.dX+ba) 




56 

し D 

D.(lX+b 3 ) 

A6 AND (IX+b 3 ) 




5E 

し D 

E ， (IX+b3) 

AE XOR (IX+b 3 ) 





06 

RLC (IX+b3) 

86 

RES 

0,(IX+b3) 

OE 

RRC (IX+ba) 

8E 

RES 

1 ， (IX+b3) 

16 

R し 

(IX+b 3 ) 

96 

RES 

2,(lX+b 3 ) 

IE 

RR 

(iX+ba) 

9E 

RES 

3,(IX+b3) 

26 

SLA (IX+b3) 

A6 

RES 

4,(IX+b 3 ) 

2E 

SRA (IX+b 3 ) 

AE 

RES 

5, (IX+b3) 

3E 

SRL (IX+b 3 ) 

巳 6 

RES 

6 ， (IX+b3) 




BE 

RES 

7 ， (IX+b 3 ) 

~46~ 

BIT 

0,(lX + b 3 ) 

C6 

SET 

0 ， (IX+b 3 ) 

4E 

BIT 

1,(lX + b 3 ) 

CE 

SET 

h (IX+b3) 

56 

BIT 

2,(IX + b3) 

D6 

SET 

2,(IX+b3) 

5E 

BIT 

3,(IX + b 3 ) 

DE 

SET 

3,(lX+b 3 ) 

66 

BIT 

4,(IX + b3) 

E6 

SET 

4,(IX+b 3 ) 

6E 

BIT 

5,(IX + b3) 

EE 

SET 

5 ， (IX+b3) 

76 

BIT 

6，(IX + b3) 

F6 

SET 

6 ， (IX+b3) 

7E 

BIT 

7,(lX + b3) 

FE 

SET 

7, (IX+b3) 
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ADD 

ADD 

ADD 

ADD 


ADD 

ADD 

ADD 

ADD 


ADD 

ADD 

ADD 

ADD 


ADC 

ADC 

ADC 

ADC 


A，B 

A，C 

A.D 

A，E 


A，H 
A，L 
A ， (HL) 
A,A 


A，B 

A.C 

A，D 

A.E 


A.H 
A，L 
A.(HL) 
A,A 


SUB B 
SUB C 
SUB D 
SUB E 


SUB H 
SUB L 
SUB (HL) 
SUB A 


SBC 

SBC 

SBC 

SBC 


SBC H 
SBC L 
SBC (HL) 
SBC A 


AND 

AND 

AND 

AND 


AND H 
AND L 
AND (HL) 
AND A 


XOR 巳 
XOR C 
XOR D 
XOR E 


XOR H 
XOR L 
XOR (HL) 
XOR A 


OR 

OR 

OR 

OR 


OR 

OR 

OR 

OR 




CP 

CP 

CP 

CP 


B 

C 

D 

E 


H 

し 

(HL) 

A 



し 

(HL) 

A 


RET NZ 
POP BC 
JP NZ ， b3b2 
JP b3b2 


CALL NZ,b 3 b2 
PUSH BC 
ADD A,b2 
RST OH 


RET Z 
RET 

JP Z,b 3 b2 
① 


CALL Z ， b3b2 
CALL bsb 2 
ADC A,b 2 
RST 8H 


RET NC 
POP DE 
JP NC,b3b 2 
OUT (b2),A 


CALL NC.b3b 2 
PUSH DE 
SUB b 2 
RST I0H 


RET C 
EXX 

JP C,b3b2 
IN A,(b 2 ) 


CALL C ， b 3 b 2 

② 

SBC b 2 
RST 18H 


RET PO 
POP HL 

JP PO ， b3b2 
EX (SP)，HL 


CALL PO.b3b 2 
PUSH HL 
AND b 2 
RST 20H 


RET PE 
JP (HL) 

JP PE,b3b 2 
EX DE.HL 


CALL PE.b 3 b2 

③ 

XOR b 2 
RST 28H 


RET P 
POP AF 
JP P,b 3 b2 
Dl 


CALL P,b3b2 
PUSH AF 
OR b 2 
RST 30H 


RET M 
LD SP.HL 
JP M,b3b2 
El 


CALL M,b3b2 
④ 

CP b 2 
RST 38H 





■■■■1 









RES 

RES 

RES 

RES 


RES 

RES 

RES 

RES 


RES 


0，B 

O.C 

0,D 

0,E 


O.H 

0 , し 

0,(HL) 

0.A 


1 ,巳 

1，C 

1,D 

1.E 


1.H 


RES 1,L 
RES 1,(HL) 
RES 1,A 


RES 

RES 

RES 

RES 


RES 

RES 

RES 

RES 


ES 

ES 

ES 

ES 


RES 

RES 

RES 

RES 


2,B 

2,C 

2,D 

2.E 


2,H 

2 , し 

2,(HL) 

2.A 


3,B 

3.C 

3，D 

3，E 


3,H 
3 ,し 

3,(HL) 
3,A 


RES 4.B 
RES 4.C 
RES 4,D 
RES 4,E 


RES 4,H 
RES 4,L 
RES 4,(HL) 
RES 4,A 


RES 

RES 

RES 

RES 


RES 

RES 

RES 

RES 


5.H 

5.L 

5,(HL) 

5,A 


RES 

RES 

RES 

RES 


RES 

RES 

RES 

RES 


RES 

RES 

RES 

RES 


6.H 
6.L 
6.(HL) 
6,A 


7.B 

7.C 

7.D 

7.E 


7,H 

7.L 

7.(HL) 
7.A 


SET 

SET 

SET 

SET 


SET 

SET 

SET 

SET 



O.H 

0.L 

0 ， (HL) 

M 



SET 

SET 

SET 

SET 


1,(HL) 


SET 

SET 

SET 

SET 


SET 1 
SET 2 
SET 2 
SET 2 


SET 3 
SET 3 
SET 3 
SET 3 


SET 3 
SET 3 
SET 3 
SET 3 



2,(HL) 


SET 

SET 

SET 

SET 





(HL) 

A 


SET 

SET 

SET 

SET 


SET 

SET 

SET 

SET 


し 

(HL) 

A 


SET 

SET 

SET 

SET 


SET 

SET 

SET 

SET 


6，B 

6，C 

6.D 

6,E 


6.H 
6,L 
6,(HL) 
6,A 


91 


.(HL) 

,A 


SET 

SET 

SET 

SET 


7,H 
7.L 
7,(HL) 
7,A 


③ ED + 
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付- 12 ニーモニックー H 6 進コード早見表 


8ビットロード命令 




m 

D 

mm 

H 

mm 

(H L) 

■■ 

门 

(IX + n) 

(lY+n) 


A 

し D B 









0 6 

DD- 46 

FD-46 

し D 1 

ED-47 

C 









0E 

DD- 4E 

FD-4E 

R 

ED-4E 

D 


mm 

WM 






16 

DD- 56 

FD.56 

(BC) 

0 2 

E 


5 9 

5 A 






IE 

DD- 5E 

FD-5E 

(DE) 

12 

H 

60 

6 1 







2 6 

DD- 66 

FD-66 

(nn) 

3 2 

し 

6 8 

6 9 





6E ! 

6F 

2E 

DD- 6E 

FD-6E 



(HL) 

7 0 

7 1 


■ 



mm 


36 

DD- 76 

FD-76 



A 

■ ■ ■ ■ 1 

7 8 

7 9 


■ 

■ 

■ 

■ 

■ 

■a 

DD- 7E 

FD.7E 

1 




1 

R 

(BC) 

(DE) 

(n n) 

し D A 

^ ■ » l 

ED-57 

ED-5F 

0 A 

1 A 

3 A 


16ビットロード命令 



n 门 

(n n) 

し D BC 


ED-4B 

DE 


ED-5B 

H し 


2 A 

SP 


ED.7B 

IX 


DD-2A 

1 Y 


FD.2A 


8ビット算術演算命令 



BC 

DE 

H し 

IX 

1 Y 

SP 

し D SP 



F9 

1 DD-F9 

FD-F9 


(nn) 

ED-43 

ED-53 

2 2 

DD-22 

■ ■ ■■ — ■ ■ 1 

FD-22 

ED-73 


■ 

■a 

wnm 






mm 

(IX+n) 

(lV + n) 

n 

ADD A 

8 0 

■ 






■a 

DD-86 

FD-86 

C6 

ADC A 

8 8 



8B 

8C 

8D 

8E 

8 F 

DD-8E 

FD-8E 

CE 

SUB 


■ 


9 3 

9 4 

9 5 

96 

9 7 

DD-96 

FD-96 

D6 

SBC 

9 8 



9 B 

9C 

9D 

9E 

9 F 

DD-9E 

FD-9E 

DE 

AND 



WM 

A3 

A4 

A5 

A6 

A 7 

DD-A6 

FD-A6 

E6 

XOR 



AA 

AB 

AC 

AD 

AE 

AF 

DD-AE 

FD-AE 

mm 





B3 


mm 


mm 

DD-B6 

FD-B6 








BD 

■ 

19 

DD-BE 

FD-BE 

■ 

INC 




■ 




3C 

DD-34 

FD-34 


DEC 

■ 


■ 

■ 

■ 




DD-35 

FD-35 

■ 


16ビット算術演算命令 



BC 

DE 

HL 

SP 

ADD H し 

0 9 

19 

2 9 

3 9 

ADC H し 

ED-4A 

ED-5A 

ED-6A 

ED-7A 

SBC H し 

ED-42 

ED-52 

ED-62 

ED-72 

INC 

0 3 

13 

23 

3 3 

DEC 

OB 

IB 

2B 

3B 



BC 

■BS 

BB 

SP 

I 

ADD 

IX 

DD-09 


- - 

DD-29 


ADD 

D 



FD-29 



レジスタ交換命令 


EX 

DE ， 

HL 

EB 

EX 

AF, 

AF 

08 

EXX 


■ ■ 4 

D9 


i 

EX(SP), HL 

E 3 

EX(SP), IX 

DD-E3 

EX(SP), IY 

FD-E3 


ブロック転送•比較•入出力命令 （ ED +) 


_ 


■Ql 

mm 


動 

作 

■9 



A8 


(DE)—(HL) 
BC—BC-1 

DE—DE 土 1 
HL—H し土 1 


D 



B9 

A - （ HL) 

BC—BC—1 
HL—HL 土 1 




AA 

BA 

(HL) —(C) 

B—B—1 

HL—HL 土 1 

OUT 



AB 

BB 

(C) —(HL) 

B—B - 1 
HL—HL 土 1 
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ビット操作命令 （ CB +) ( I X， I Y の DD ， FD は CB の前につける） 


「 

B 

C 

D 

E 

H 

し： 

(HL) 

A 

(IX + n) 

(lY + n) 

BIT 0 

4 0 

41 

4 2 

4 3 

4 4 

4 5 

4 6 

4 7 

DD-46 

FD-4 6 

1 

4 8 

4 9 

4 A 

4 B 

4C 

4 D 

4 E 

4 F 

DD-4E 

FD-4 E 

2 

5 0 

51 

5 2 

5 3 

5 4 

5 5 

5 6 

57 

DD-56 

FD-56 

3 

5 8 

5 9 

5 A 

5B 

5C 

5D 

5 E 

5 F 

DD-5E 

! FD-5E 

4 

6 0 

61 

62 

6 3 

64 

6 5 

6 6 

6 7 

DD-66 

FD-6 6 

5 

6 8 

6 9 

6 A ' 

6 B 

6C 

6 D 

6 E 

6 F 

DD-6E 

FD.6E 

6 

7 0 

71 

7 2 

7 3 

7 4 

7 5 

7 6 

7 7 

DD- 76 

FD-76 

7 

7 8 

7 9 

7 A 

7B 

7C 

7 D 

7E 

7F 

DD-7E 

^ — ■ 謹 

FD.7Ei 

_ 1 


RES 

8 X 
8X 
9X 
9X 
AX 
AX 
BX 
BX 


SET 

CX 

CX 

DX 

DX 

EX 

EX 

FX 

FX 


回転•シフト命令 ( CB +) 


RLCA , RRCA ， RLA，RRA は、' CB 々 不要 



B 

C 

D 

E 

H 


(HL) 

A 

(IX+n) 

(lY + n) 

R し C 

00 

0 1 

02 

03 

04 

05 

06 

07 

DD-06 

FD-06 | 

RRC 

08 

09 

0A 

OB 

OC 

0D 

0E 

OF 

DD-0E 

FD-0E ! 

R し 

10 

11 

12 

13 

14 

15 

16 

17 

DD-16 

FD-16 

RR 

18 

19 

1 A 

IB 

1C 

ID 

IE 

IF 

DD.l E 

FD-1 E 

_ 

SLA 

— 

20 

2 1 

22 

23 

24 

25 

26 

27 

DD-26 

FD-26 ， 

SR A 

28 

29 

2A 

2B 

2C 

2D 

2E 

2F 

DD-2E 

FD-2E 

SR し 

38 

39 

3A 

3B 

3C 

3D 

_ 

3E 

3F 

DD-3E 

FD-3E 1 

J 


動作 


1 


口 






斤 


0 



0 



レジスタ退避•解除命令 


一 1 

BC 

DE 

H し 

| — ■■■ ■ ■ l 

AF 

IX 

1 Y 

PUSH 

C5 

D5 , 

E5 

F5 

DD-E5 

FD.E5 

POP 

C1 

D 1 

El 

FI 

DD-E 1 

FD.E 1 


RRD 

| ED-67 | 

ACC 

(HL) … 


1 1 
彳 

R し D 

ED-6F 

ACC "• 

… 丨 l 1 

…丨 1 

(HL) … 


个 


ジャンプ•コール•リターン命令 















mm 


Z 

NZ 

mm 


PE 

i_I_ 


■a 

SB 

JR 

18 

28 

2 0 

38 





■ 

J P 

C3 

CA 

C 2 

DA 






CALL 

CD 

CC 

C 4 

DC 


la 




RET 




D8 


E8 

■ 


_ 


入出力命令 （ ED +) 


IN A, (n) 

DB 

OUT (n)，A 

■ai 


CPU コントローノレ 


El 

H FB 

D 1 

F3 

1 M 0 

ED-46 

1 M 1 

ED-56 

1 M 2 


NOP 

0 0 

HALT 

7 6 



mm 



B 



mm 





■ 



B| 

BKH 

■ 


D 

■ 

■ 

_ 

國 


リスタート 


RST OH 

C 7 

8H 

CF 

1OH 

D7 

18 H 

DF 

20H 

E 7 

28H 

EF 

30H 

F7 

3 8H 

FF 


AF レジスタ操作 


DAA 

27 

CP し 

2F 

NEG 

ED-44 

CCF 

3F 

SCF 

37 

- ■ 一」 
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ATN 


-H- 

177 HOOK 


296 


—B — 

BAS I C 割り込み .267 

B E L コード . 46 

B LOAD 文 .279 

-C- 

CC I TT.255 

CHAIN.280 

CHR $ (&.H19) . 96 

CLEAR.353 

CLOCK.274 

CMD SI NG.290 

CP/M. 13,437 

CPU の実行速度 .no 

CRT コント ローラ . 84,77 

CRT タイプのセンス .11G 

CR 丁のイニシャライズ パラメータ ……88 

-D- 

D AC.16G 

D A V . 166 

DCD ライン . 249 

DD AM. 147 

D I . 21 

D エ S K I /〇 . 349 

DMA コントローラ . 77,91 

D S K F. 145 


一 I 一 


I /〇バッファ . .……56 

I /〇ポート . 123 

I /〇ポート 31 H. 20 

I D セクタ . 141 

I EEE インタフェース . 40 

I NKE Y $で力ーソル表示 . 72 

INPUT WA I T 文 . 71 


LINE I NPU 丁文 . 71 

-M- 

M MODE. 21 

MS-DOS. 219 


N-B AS I C.13 

N88- BAS I C.13 

N88 — B AS I C での割り込み処理 ……273 

N88D ISK-BASIC 

メモリ • マップ . 33 

NM I . 21,269 


一〇一 

0 AR. 22,293 

OPTION BASE. 372 


EBCDIC コード . 147 

El. 21 

E I /D I.269 

E I A.255 

ERL.371 

ERR.369 

-F- 

F AC.292 

FAC の型チェック . 344 

FAC の型変換 . 295,346 

FAT. 142 

FCB. 56 

FD I NT 1 . 274 

FD I NT 2. 274 

FI FO. 63 

—G — 

GET 文 . 118 

G VRAM のアクセス .103 


-P- 

PC — 8012 -0 2. 27 

PC- 8801 -02 N. 28 

PC P/M.13 

PRINT to L PR I NT.229 

PR I NT#.245 

PR I N 丁文 . 93 

P STB. 240,241 

PUT KAN J I.127,123 

PUT 文 . 118 

-R- 

R MODE. 21 

RAM ファイル . 55 

RED.166 

ROMK I L L 信号 . 24 

R S - 2 3 2 C.255 

RS-2 3 2C の制御 .263 

R S T 10 H.293 

RXRD Y.273 

-T- 

T AB.238 
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索 引一 


丁 AB 関数 . 94 

TRON . 372 

一 V - 

VAL 関数 . 246 

VARPTR . 56 

VRTC . 273 

VRTC 割り込み . 68,274 


- W - 

WA I T 文 . 72 

WI DTH LPR I NT . 238 

WI DTH 文 . 92 

Write P rotected .196 

WR I 丁 E #.245 

ールー 

M P D 8 2 51. 243,249 

/i P D 8 2 5 5.172 

1/4 角文字 .124 

12 0 0 ボー .248 

1 行入力 . 355 

1バイト系 . 134 

1文実行 . 345 

1文字出力 . 344 

1文字読み込み . 344 

2バイト系 . 134 

4 th ROM . 24 

—あ一 

アキュムレータ . 292 

アクノリッジ . 260 

アトリビュートエリア . 78,80 

アトリビュートセット . 82,351 

アドレス変換 . 351 


-い一 

インタラプトレベル . 271 

インタリーブ . 146 

インタリーブフォーマット . 217 


- 0 - 


ウィンドウ機能 . 22 

ウインドウ内アドレス . 293 


-X.- 

エラー出力 . 295, 345 


—か一 

力ーソル . 375 

力ードナンバー . 28 

拡張 F I LE S . 148 

拡張 PEEK/POKE . 30 

拡張 RAM . 18,27 

拡張 ROM . 18,24 

拡張 ROM のイニシャライズ . 25 

拡張 ROM ボード . 25 

カセット入カバッファ . 60 

片面单密 . 439 

片面ドライブ . 289 

カラーグラフィック画面コピー . 225 

カラーグラフィックモード . 99 

カラーパレット . 107 

カラーパレットの設定 . 108 

カレントステータスレジスタ . 271 

漢字——キャラクタ対応表 . 231 

漢字 B AS I C . 131 

漢字 J I S コード . 125,231 

漢字 ROM . 123 

関数作成 . 299 

外字データ作成 . 234 

ガベージコレクシヨン . 37,53,278 

画面の重ね合わせ . 117 

一 含 一 

キースキヤン . G 8,348 

キーセンス比較表 . 7 G 

キー入力 . 349 

キー入カサプレスフラグ . 370 

キー入カバッファ . G 0 

キーの先行入力 . 68 

キー バッファ . G 8 

キーバッファのクリア . 70 

キーマトリックス . 65 

キーワー ドグループ . 43 

機械語割り込み . 2 G 7 

キャリァディテクト . 249 

キュー . 63,351 

キューアドレス . 64 

キュー長 . 64 

キュー テーブル . 64 

一く 一 

グラフィック RAM . 17 

グラフィック VRAM . 99 

グラフィック画面格納フォーマット . 105 

グラフィックデータジェネレータ . 113 

グラフィックモードの設定 . 109 


一ぬ 一 

オフセツトアドレス . 22 

オフセツトアドレスレジスタ . 22 

音胃 . 290 


—こ一 

コード7 . 46 

高解像度グラフイツクモード . 101 

髙速 ROLL 文 . 115 


477 























































































高速書き込みモード . 110 

高速漢字 PU 丁文 . 130 

高速画面クリア . no 

高速グラフィックアクセス . 110 

髙速ハンドシェイク . 168 

コマン ド ステータス . 186,194 

コマンド設定 . 250 

コマンド送出 . 349 

コントロ ー ルコード . 442 

一さ一 

サブシステム . 14,163 


式の評価 . 295,346 

使用可能ェリア . 35 

シリンダ . 137 

シンタックスチェック . 344 

時間用バッファ . 376 

実行速度 . 91 

実アドレス . 293 


スタックエリア . 35 

ステー トメント作成 . 297 

ストップリセット . G 8 

ストリング . 353 

ストリングスタック . 296 


セミコロン . 247 

選択的ファイル転送 . 151 

セント n ニクス . 223 

全角文字 . 123 


テキストェンド . 371 

テキスト画面 . 355 

テキスト画面のコピー . 223 

データ受信 . 349 

データ送出 . 349 

テータフアイノレ . 245 

デイスク . 137 

デイスクアドレスとクラスタの変換……140 

テイスクェアイット . 148 

デイスクドライブ . 137 

デイスクマップ . 138 

ディスケット . 137 

デイレクトリ . 140,441 

デイレクトリェントリ . 437 

デバイス ステータス . 196 

デバイス名 . 55 


トラック . 437 

トラック0 . 146 

トラック番号 . 137 

トランスペアレント . 90 

ドライブ . 137 

ドライブオペレーションモード . 198 

ドライブ数 . 373,376 

ドライブ ステータス . 195 

ドライブタイプゲット . 349 

ドライブ テーブル . 144 

ドライブポインタ . 144 

ドライブポインタ テーブル . 35 

一に一 

日本語文字列の内部表限 . 132 

入出カファイル . 55 


一そ一 
厲性コード 


80 


タイマ . 356 

単語ゲット . 293 

単純変数テーブル . 49 

単純変数領域 . 372 


チヤ不ル . 91 

中間言語 . 39 

中間言語 テーブル . 43 


低解像度グラフィック . 81 

テキスト RAM . 17,22,35 

テキスト VRAM . 77 

テキスト VRAM アドレスの移動 . 78 


一ぬ一 

ヌルアトリビュート . 369 

ヌルライン . 78 

一の一 

ノントランスペアレント . 90 

一は一 

配列変数 テーブル . 51 

配列変数領域 . 372 

半角文字 . 124 

ハンドシェイク . 165 

バックグラウンド . 377 

バックグラウンドカラー . 116 

バンク . 17,99 

バンク切り換え . 103 

バンクナンバー設定 . 27 

パラメータの評価 . 346 

パ レツ ト . 100 
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—ふ一 

ファイルソート . 149 

ファイル属性 . 57 

ファイルディスクリプタ . 55 

ファイルバッファ . 35,56 

ファイルバッファアドレス . 59 

ファイルポインタ . 35,56 

ファイルポインタテーブル . 35 

ファイル名 . 55 

ファイルモード . 57 

ファイルリロケーション . 150 

ファンクションキー . 73,370 

フォーマット . 191 

フォアグラウンド . 377 

フック . 296 

フリーエリァ . 372 

フロッピーディスク . 137 

ブレーク ポイント . 200 

ブロック . 437 

プリンタフラグ . 369 

プログラムの格納状態 . 38 

プログラムの転送 . 261 


文字列の入力方法 . 76 

文字列領域 . 37 

モノクログラフィックモード . 100 


ユーザー定義キャラクタ . 285 


ライトプロテクト . 196 

ラベノレ . 353 

ラベルテーブル . 35,36,47 

ラベル領域 . 371 


—り一 

リードアフターライト . 199 

リザルト ステータス . 197 

領域の場所を示すポインタ . 34 

リンクポインタ . 38 

一れ 一 

レコード . 437 


変数アドレス… 
変数テーブル… 
一ほ一 

ボーレイト . 

ポート 1 QH 
ポート 3〇 H 
ポート 31 H 
ポート 4 OH 

ポート 51 H 
ポート 5 CH 
ポート E 2 H 

ポート E 3 H 

ポート E 4 H 

ポート E 6 H 


. 354 

. 36,49 

. 255 

. 240 

. 248 

. 109 

110,116,240 
249,290 

. 89 

. 105 

. 29 

. 28 

. 271 

. 271 


—わ一 

割り込みコントロール回路 . 271 

割り込みテーブル .2 G 9 

割り込みの使い方 . 272 


—み一 

未使用命令 . 291 

メ イン RAM . 17,34 

メインシステム . 14 

メモリマップ . 17 

メモリモード . 17 

メモリモードの切換え . 20 


一ち一 


モー r 0 . 18 

モード2 . 18 

モード設定 . 250 

文字列エリア . 53 

文字列格納エリア . 35 


479 
































































昭和 60 年 4 月25日第1版第1刷発行 
定価2,900円 

ひらまつ たつお やぎ りょういち 

著者平松達雄八木良 一 

発行者樺島正博 

発行所株式会社システムソフト 

〒810福岡市中央区渡辺通 2-4-8 
代表電話 092-714-6236 
郵便振替福岡 3-37311 
印刷所大日本印刷 

◎著作権法上、株式会社シス テムソフトの 文書に よる 承 
諾なしに本書の内容の一部または全部を複写 • 複製す 
ることは 禁じられ ており ます。 

〇落 • 乩丁本はお取替えいたします。 

ISBN 4-88235-013-0 C 0055 ¥2900 E 

©1985 SystemSoft Corporation. 




@ SystemSoFt 



ISBN4-88235-013-0 C0055 ¥2900E 

•••••• 1"^- . .. • .. •• t • * 1 •• * * * - 









